Para trabajar con OLEDB debes cargar, en el menu Proyecto-Referencias el Microsoft ActiveX Data Objects 2.x Library (el más actual que tengas ya que va en función del Service Pack de VB que tengas instalado, actualmente está el Service Pack 4 que trae la versión 2.5), además debes tener el driver de la base de datos (Access) para OLEDB, estos drivers se instalan con el Visual Basic en la carpeta \Archivos de Programa\Archivos comunes\System\ole db\
El último driver del motor Jet de Access creo que es el 4.0.
Ya tenemos el Visual Basic configurado para comenzar a usar ADO y OLEDB.
Para trabajar por código debes abrir una conexión a la BD:
Declaración:
Public cnConexion As ADODB.Connection
Instanciación del objeto:
Set cnConexion = New ADODB.Connection
cnConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=True;" & _
"Password=PEPE;User ID=PEPE;" & _
"Data Source=c:\pepe.mdb" & _
";Jet OLEDB:System database=c:\pepe.mdw"
cnConexion.Open
PARA HACER LA CADENA DE CONEXIÓN SI NO NECESITAS EL ARCHIVO .MDW UTILIZA EL GENERADOR DEL ADODC, COPIA EL RESULTADO Y LO PEGAS EN LA CONNECTIONSTRING DE LA CONEXIÓN, QUITA EL CONTROL Y FUNCIONA PERFECTAMENTE.
Y luego debes declarar Recordset para trabajar con los datos:
Private rsTabla As ADODB.Recordset
Set rsTabla = New ADODB.Recordset
rsTabla.Open "select * from tabla", cnConexion, _
adOpenForwardOnly, adLockReadOnly
Estos parámetros son el CursorType (sólo hacia delante) y el tipo de bloqueo (sólo lectura), pero tienes