Option Explicit

Public CN                   As ADODB.Connection 'Variable para la conexion a la BDD

'-------------------------------------------------------------------------------------------------------------
'\\ -- Sub para conectar la Base de Datos
'-------------------------------------------------------------------------------------------------------------
Sub Conectar()
    Dim RST As New ADODB.Recordset
    
    Set CN = New ADODB.Connection
    Set RST = New ADODB.Recordset
    
    With CN
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                            App.path & "\LaBaseDeDato.mdb" & ";Persist Security Info=False"
        .CursorLocation = adUseClient
        .Open
    End With
End Sub

Option Explicit

Dim RSTabla     As New ADODB.Recordset

Sub ConectarTabla()
    Set RSTabla = New ADODB.Recordset
    
    With RSTabla
        .CursorLocation = adUseClient 
        .Open "Select * From NombreTabla", CN, adOpenStatic, adLockOptimistic
    End With
End Sub

Private Sub Form_Load()
    
    Call Conectar         'Conctamos la BDD
    Call ConectarTabla 
    
    Set DataGrid1.DataSource = RSTabla
    DataGrid1.Refresh
    
End Sub