Listar Tabla VisualB + Access

[JoseAlejandro_Realza]

Código:

Sql = "SELECT * FROM Categorias ORDER BY Categoria_Nombre"
Conectar.Open "Provider = Microsoft.jet.oledb.4.0; data Source = C:\Users\Admin\Documents\Database_ARE[MJ].mdb"
Query.Open Sql, Conectar, adOpenDynamic, 3
Set tRs = Conectar.Execute(Sql)

'te deja el recordset en el primer registro
While Not Query.EOF
    'mostrar el campo que quieras si es mas de uno debes concatenarlos
    MsgBox (Query!Categoria_Nombre)
    Set DataGrid1.DataSource = Query

    Query.MoveNext
Wend

'Cierra, Libera la memoria
    Query.Close
    Set Query = Nothing
    Conectar.Close
    Set Conectar = Nothing