Im used to working with DAO and now im trying to
slide over to the ADO side but i cant seem to get
the connection string right. Any suggestions would be
greatly appreciated. I keep seeing
Set connection = CurrentProject.Connection but
CurrentProject is a object off of the Application
object in VBA which i cant access from vb it self
so what do i do?

Option Explicit
Dim connection As New ADODB.connection
Dim fieldcurr As ADODB.Field
Dim ourtables As New ADOX.Table
Dim catcurr As New ADOX.Catalog
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
rs.Open "Account Information"
For Each fieldcurr In rs.Fields
Debug.Print fieldcurr.Name
rs.MoveNext
Next fieldcurr
End Sub

Private Sub Form_Load()
connection.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:\SoilTicketdb.mdb"