coneccion con base de datos Access

[Insomnia]

Hola

Te pongo un ejemplo sencillo de conexión a BD access y apertura de un recordset

Código vb:

Public cnnExterna As New ADODB.Connection 'Declaración de la conex BD
 
Private Sub Form_Load()
 
    
    Dim reg As New ADODB.Recordset 'Declarar recordset
    Dim strSQL As String 'Para guardar la sentencia SQL
    Dim ruta As String 'Ruta de la BD
    
    ruta = App.Path & "\prueba.mdb" 'En la misma carpeta que el ejecutable
    
    strSQL = "Select * from tbl_datos" 'La sentencia Select
    
    cnnExterna.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ruta & ";Persist Security Info=False" 'Establecer Conexión a la BD access
    rstExterno.CursorLocation = adUseClient
    rstExterno.Open strSQL, cnnExterna, adOpenDynamic, adLockReadOnly 'Abrir recordset
    
    Set grd_datos.DataSource = rstExterno 'Llenar DataGrid con el recordset
 

Ten en cuenta que tienes que tener activada la referencia Microsoft ActiveX Data Objects 2.8.

Respeto cual de los dos sistemas es mejor, creo que el ADO, ya que es un sistema mas actual que el DAO (que alguien me corrija si me equivoco)

Espero que te sirva como punto de partida.

--Saludos--