Abrir tabla de una BD de acces con visual basic

[-rommel_]

este es un ejemplo que esta en la internet

Código vb:

Option Explicit
 
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
 
Private Sub cmdAbrir_Click()
    Dim Field As ADODB.Field
    'Cerrar las conexiones
    Set cn = Nothing
    Set rs = Nothing
    ' Crear los objetos ADODB
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    ' abrir la base usando id y password
    cn.Open "Provider=SQLOLEDB; " & _
             "Initial Catalog=pubs; " & _
             "Data Source=(local); " & _
             "integrated security=SSPI; persist security info=True;"
    ' abrir el recordset indicando la tabla a la que queremos acceder
    rs.Open "SELECT * FROM authors", cn, adOpenDynamic, adLockOptimistic
    ' Asignar los nombres de los campos al combo
    With cboFields
        .Clear
        For Each tField In rs.Fields
            .AddItem Field.Name
        Next
        .ListIndex = 0
    End With
    ' Cerramos el recordset y la conexión
    rs.Close
    cn.Close
End Sub