Cita:
Iniciado por Avellaneda 
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=c:\MiBaseDeDatos.mdb"
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "Select * From Tabla1"
End With
si me conecta usando esto pero no puedo guardar ningun registro me dice error de objeto
admas use esto como complemento
Cita: With Adodc1.Recordset
.AddNew
!Campo1 = Text1.Text
!Campo2 = Text2.Text
' ... etc
.Update
End With
pero mmm lo quiero para un adodc no una data