Cita:
Iniciado por rositafresita Gracias x responder, pero ya lo probe y no funciona, me sigue marcando el mensaje de error
tu codigo es algo como esto?
Código:
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
CN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BD;Data Source=PC"
CN.Open
RS.CursorLocation = adUseClient
RS.LockType = adLockOptimistic
RS.ActiveConnection = CN
RS.Open "SELECT * FROM CLIENTES"
Código:
Set DataGrid1.RecordSource = RS