Hola,que tal.
Te pongo un ejemplo de un programa mio.
Código:
Public cnn As ADODB.Connection
Public rs1 As ADODB.Recordset
Public Sub coneccion()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & "\base.mdb"
cnn.Open
Set rs1 = New ADODB.Recordset
rs1.Open "tabla", cnn, adOpenKeyset, adLockPessimistic, adCmdTable
End Sub
y en el formulario principal
Private Sub Command1_Click()
On Error GoTo fin
ChDir App.Path
Call coneccion
---
End Sub Incluyo Microsoft Ado DataControl en Componentes.
Espero que te sirva.