Как заполнить массив данными листбокса? - VB

Формулировка задачи:

Как заполнить массив данными листбокса, а затем сделать выборку из базы данных где элементы массива являются условиями отбора. Я уже 5 суток сижу над этим.... больше нет сил.... помогите

Решение задачи: «Как заполнить массив данными листбокса?»

textual
                            Листинг программы 
                        

                            ReDim a(List2.ListCount - 1) As String
For cnt = 0 To List2.ListCount - 1
   a(cnt) = List2.List(cnt)
Next
Set r1 = New ADODB.Recordset
r1.CursorType = adOpenDynamic
r1.LockType = adLockOptimistic
r1.CursorLocation = adUseClient
r1.Open ('spr'), cnn
 
r1.MoveFirst
For i = 1 To r1.RecordCount
For cnt = 0 To List2.ListCount - 1
 
If a(cnt) = r1(1) Then
Set cmd = New ADODB.Command
cmd.CommandText = ' SELECT spr.naim, spr.data,spr.kol_mes_isp, spr.summ From spr WHERE (((spr.inv)='' & a(cnt) & ''))'
 
Set cmd.ActiveConnection = cnn
Set r1 = cmd.Execute('spr', a(cnt))
 
Call FillGrid(r1, grd) //выводит в флекс_грид запись по 
                       //последнему   элементу массива
 Exit Sub
   End If
    r1.MoveNext
    Next cnt
Next i
                        