Hola, por favor proba asi que tendría que funcionar
Código:
Sql = "SELECT * FROM Categorias ORDER BY Categoria_Nombre"
Cn.Open provider="Microsoft.jet.oledb.4.0; data Source = C:\TuBase.mdb"
rs.Open Sql, Cn, adOpenDynamic, 3
'te deja el recordset en el primer registro
While Not rs.EOF
'mostrar el campo que quieras
MsgBox rs!NombreDelCampo
avanzas un registro
rs.MoveNext
Wend
'Cierra, Libera la memoria
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub