Espero que te sirva por lo menos para tener una idea.
Cita: Option Explicit
Private ADOCn As ADODB.Connection
Private ConnString As String
Private adoRS As ADODB.Recordset
Private sSQL As String
Private Sub Form_Load()
'Abrir base de datos
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\basededatos.mdb;" & _
"Persist Security Info=False"
Set ADOCn = New ADODB.Connection
ADOCn.ConnectionString = ConnString
ADOCn.Open ConnString
End Sub
Private Sub Command1_Click()
'crear recordset
Set adoRS = New ADODB.Recordset
sSQL = "SELECT * FROM people"
adoRS.Open sSQL, ADOCn
End Sub
Salu2!