В VB я это делал так:
- Код: Выделить всё
Public rstChasti As ADODB.Recordset
Set rstChasti = New Recordset
rstChasti.Open "SELECT distinct chasti.* FROM chasti ;", conData, adOpenStatic, adLockOptimistic
Set grdDataGrid.DataSource = rstChasti
А на VBA не знаю.