bueno habia algunos errores en lo que cambiaste.
Aca va de nuevo probado con una base en mi pc.
Observa los comentarios de las referencias que debes usar
Código:
Private Sub Command1_Click()
Dim Conectar As New Connection, Query As New Recordset, Sql As String
'Desde el menu / Proyecto debes hacer referencia a
'Microsoft AxctiveX Data Object 2.6 library....... y a
'Microsoft Jet and Replication objects 2.6........
Sql = "SELECT * FROM Categorias ORDER BY Categoria_Nombre"
Conectar.Open "Provider = Microsoft.jet.oledb.4.0; data Source = C:\bd1.mdb"
Query.Open Sql, Conectar, adOpenDynamic, 3
'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
Query.MoveNext
Wend
'Cierra, Libera la memoria
Query.Close
Set Query = Nothing
Conectar.Close
Set Conectar = Nothing
End Sub
Esepro te sirva