Вот работоспособная функция

Function ListMDBs(fld As Control, id, row, col, Code)

Static C As New Collection
Static RN As New Collection
Dim key As String
Dim ReturnVal As Variant
Dim Rs As ADODB.Recordset
Dim i As Integer, j As Integer
On Error GoTo LErr:
ReturnVal = True
key = fld.Parent.name & fld.name

Select Case Code
Case acLBInitialize
Set Rs = dbs.Execute(fld.RowSource)
Rs.MoveFirst
C.Add Rs, key
RN.Add 0, key
Case acLBOpen

Case acLBGetRowCount
Set Rs = C(key)
ReturnVal = Rs.RecordCount
Case acLBGetColumnCount
Set Rs = C(key)
ReturnVal = Rs.Fields.Count
Case acLBGetColumnWidth
ReturnVal = -1
Case acLBGetValue
Set Rs = C(key)
If RN(key) <> row Then
Rs.Move row - RN(key)
RN.Remove key
RN.Add row, key
End If
ReturnVal = Rs.Fields(col).value
Case acLBEnd
C.Remove (key)
RN.Remove (key)
End Select
ListMDBs = ReturnVal
LErr:
If Err.Number <> 0 Then
Exit Function
End If
End Function

Забыл, тут в этой функции dbs - активное соединетние, ставишь в Listbox, где тип источника данных ListMDBs и источник данных, текст запроса и все заработает (под access 2000 под 97 посложнее)