Listar Tabla VisualB + Access

[-rommel_]

te envio el codigo que hago yo normalmente...
espero te ayude, claro necesitas un Command y un DataGrid

Código vb:

Public dbConex As ADODB.Connection
Public rsConsulta As ADODB.Recordset
 
Private Sub Command1_Click()
    Dim strQuery As String
    'Seteamos rsConsulta
    Set rsConsulta = New ADODB.Recordset
    'hacemos la consulta
    strQuery = "Select * from Authors"
    'Conectamos nuestro Recordset
    rsConsulta.Open strQuery, dbConex, adOpenDynamic, adLockOptimistic
    'Seteamos a me.DataGrid1
    Set Me.DataGrid1.DataSource = rsConsulta
End Sub
 
Private Sub Form_Load()
    Dim strDire As String
    '----------------------------------------------
    'Declaramos la direccion de nuestra BD
    strDire = "C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.MDB"
    'Seteamos dbConex
    Set dbConex = New ADODB.Connection
    'Coloca esto para que no te salga QUE LAS FILAS NO ADMITEN MARCADORES
    dbConex.CursorLocation = adUseClient
    'Conectamos nuestra Base de Datos
    dbConex.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDire & ";Persist Security Info=False"
    'Abrimos la Base de Datos
    dbConex.Open
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    rsConsulta.Close
    dbConex.Close
End Sub
 

Saludos!!!