[VB6] Richiamare una query di access

[Folcus]

Qualcuno mi riesce ad aiutare e capire come richiamare una query di un database access in VB6?

ora per riempire una datagrid uso questo codice:

If ContattiDB.State = 1 Then
ContattiDB.Close
End If
    
ContattiDB.Source = "Select * from Personale Order By Cognome"
ContattiDB.ActiveConnection = ContattiConn
ContattiDB.Open

Set DGContatti.DataSource = ContattiDB

e fin qui tutto ok, mi prende tutti i record e me li fa apparire nella datagrid.

ora vorrei richiamare invece una query e riempire la datagrid con i risultati ottenuti. La query, come si richiama?