pues a ver si te sirve:
Sub ADOOpenRecordset()
' Open the connection
cnn.Open ("dsn=CASETA;uid=intranet;pwd=intranet10")
End Sub
para consultar:
rst.Open "select count(*) as cuantos from caseta_people", _
cnn, adOpenKeyset, adLockOptimistic
declarando las variables
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
ademas tienes que referencias en tu proyecto el microsoft ole db, microsoft activeX
y creo que eso es todo, si tienes problemas avisame
atte.
Lilir
