Devi associare un oggetto data (visible = false) alla tua dbgrid scrivendolo nella proprietà DataSource, poi nel programma quando vuoi popolare la grid fai:

codice:
Dim Rs As Recordset
Data.DatabaseName = NomeDb (completo di percorso)
Set Rs = Db.OpenRecordset("select * from tabella")
Set Data.Recordset = Rs
Ciao