Como esta karl?
La forma como yo hago conexiones con Access, en el menú desplegable Proyecto/Referencia… y luego escojo “Microsoft ADO Library 2.0 (Numero de la versión)”, ya que este me permite trabajar con versiones nuevas de Access (2000, 2002, 2003), además de otras “maravillas” que permite. La conexión con la Base de Datos es la siguiente:
Dim Cnx As ADODB.Connection
Set Cnx = New ADODB.Connection
Cnx.CursorLocation = adUseClient ‘Esta línea nos causo muchos problemas a dos compañeros y a mi.
Cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False;Data Source=" & strRuta & ";Jet OLEDB:Database Password=;" ‘Por si tiene password.
Ya está la conexión con la Base de Datos lista, ahora abriremos las tablas:
Dim rsRecordst As ADODB.Recordset
Set rsRecordst = New ADODB.Recordset
rsRecordst.Open "Select * From [Tabla] Where [Condiciones] Order by [Campo]", Cnx, adOpenStatic, adLockOptimist
Si lo configuras así podrás adicionar, guardar y manejar los registros como quieras.
rsRecordset.AddNew
rsRecordset.UpDate
rsRecordset.MoveNext
rsRecordset.MoveFirst
rsRecordset.MoveLast
rsRecordset.MovePrevious
El control para enlazarlo con el ADO es el DataGrid
