Bueno, yo estaba utilizando ADODB, pero no consigo hacerlo, Pana99, utilice el codigo que me das, pero no se como hacerlo correr. Intente de esta manera y me da error:
Código:
Dim Conectar As New ADODB.Connection
Dim Query As New ADODB.Recordset
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, Cn, adOpenDynamic, 3
'te deja el recordset en el primer registro
While Not rs.EOF
'mostrar el campo que quieras
MsgBox ("Hola")
rs.MoveNext
Wend
'Cierra, Libera la memoria
Tabla.Close
Set rs = Nothing
Conexion.Close
Set Cn = Nothing