DataGrid con DAO

[AteneaVB]

Lamento decir que todos estan equivocados. El DataGrid no tiene una propiedad Recordset, sino DataSource.

Lo correcto es:

Dim Registro as Recordset
Set Registro = BaseDatos.OpenRecordset("SELECT * FROM TABLA")
Set DatRegistro.Recordset = Registro
DdGrid1.DataSource = DatRegistro

en donde DatRegistro es un Control tipo Data, pero como tú dices que no quieres usarlo tienes otra opción, en lugar de usar un DataGrid, utiliza un
Grid y llénalo manualmente con tu Recordset. Así:

Dim Registro as Recordset
Set Registro = BaseDatos.OpenRecordset("SELECT * FROM TABLA")

Dm I as Integer
I =1
Do While Registro.Eof = False

Grid1.Row = I

'Campo1
Grid1.Col = 0
Grid1.Text = Registro!Campo1

'Campo2
Grid1.Col = 1
Grid1.Text = Registro!Campo2

'.... y así sucesivamente hasta llenar todas las columnas

I = I + 1
Grid1.AddItem ("")

Registro.Movenext
Loop

Espero que te sirva de ayuda. Suerte!