Utilize o ADO ou DAO
Crie uma sub no formulario que preencha o grid por exemplo:
Sub PreencheGrid
Grid1.Clear
Grid1.FormatString="<Código|<Nome"
Grid1.ColWidth(0)=500
SS="Select count(*)+1 as Total From Tabela"
Call MontaRs ' Esta Sub Monta o Record Set
grid1.rows=rs!Total
ss="Select Codigo,Nome From Tabela"
dim mlinha as long
mlinha=1
Do while not rs!eof
grid1.textmatrix(mlinha,0)=rs!Codigo
grid1.textmatrix(mlinha,1)=rs!Nome
mlinha=mlinha+1
rs.movenext
loop
End
Para ver os comandos de conexão de banco de dados e de execução de recordset procure nas dicas la tem.