CIAO.........
ecco il codice.........
apri la connessione ad acces......

dai il path del database con la query che vuoi far selezionare ....

ciao
sara


Private Sub Form_Load()

Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Cn.CursorLocation = adUseClient
Cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\cartella\miodatabase.mdb"

Rs.Open "Select * from tabella", Cn, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = Rs


End Sub