Com ADO via ´código eu faço assim:
'Declare num modulo
Public conn As New ADODB.Connection
Public caminho As String ' caminho da conecção
Public Sub abrir()
If conn.State = adStateClosed Then
caminho = (App.Path & "es.mdb")
conn.Mode = adModeReadWrite
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho & ";Persist Security Info=False"
End If
End Sub
'decalre no Form_Load
Private Sub Form_Load()
abrir
End Sub
para conectar :
Dim rs As New ADODB.Recordset
para abrir o RecordSet:
Private Sub Command1_Click()
rs.Open "SELECT * FROM Tabela ", conn, adOpenKeyset, adLockOptimistic
End Sub
onde * são os campos da tabela
conn é a string de conecção!!
Espero ter ajudado!!!!
