| |||
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 |