VB6 Связать Базу с ComboList

Dim colpoley As Integer, Combo_List1() As Integer, Combo_List2() As Integer, Combo_List3() As Integer, Combo_List4() As Integer
Dim List_Count(4) As Integer
 
Data1.RecordSource = "SELECT * FROM ИМЯ ТАБЛИЦЫ"
Data1.Refresh
On Error Resume Next
k = -1
Data1.Recordset.MoveLast
k = Data1.Recordset.AbsolutePosition
Data1.Recordset.MoveFirst
ReDim Combo_List1(k) As Integer
List_Count(0) = k
For i = 0 To k
Combo1.AddItem (Data1.Recordset.Fields("ПОЛЕ ДЛЯ ЗАГРУЗКИ").Value)
Combo_List1(i) = Data1.Recordset.Fields("ПОЛЕ УНИКАЛЬНОЕ").Value
Data1.Recordset.MoveNext
Next i

Private Sub FG_Click()
Dim re
Dim J
RS.MoveFirst '
RS.FindLast "Title = '" & Trim(FG.TextMatrix(FG.Row, 0)) & "'"
If RS.NoMatch Then MsgBox "Индекс не найден": Exit Sub
For J = 0 To 4
SF.TextMatrix(0, J) = RS.Fields(J)
Next J
End Sub

Private Sub DBCombo1_Click(Area As Integer)
SearchStr$ = DBCombo1
    Data1.Recordset.Index = "Title"      'считываем наименование книги
    Data1.Recordset.Seek "=", SearchStr$ 'и ищем
    Data1.Recordset.Index = "PrimaryKey" 'удаляем первичный ключ
    If Data1.Recordset.NoMatch Then      'если больше нет
        Data1.Recordset.MoveFirst        'переходим к первой записи
    End If
End Sub

strDBName = App.Path & "\Metall.mdb" ' установить путь к таблице рядом с программой
Set WS = DBEngine.Workspaces(0) ' двигатель рабочего пространства
Set DB = WS.OpenDatabase(strDBName, False, False) ' назначить базу
 
sSQL = "SELECT Titles.[Код] ,Titles.[Наименование проката]  FROM Titles WHERE Titles.[Наименование проката]  like '*" & "Квадрат" & "*'" '    ;" ' запрос к таблице
Set RS = DB.OpenRecordset(sSQL) ' открыть рекорсет
RS.MoveLast
RS.MoveFirst
For R = 1 To RS.RecordCount
Комбо1(0).AddItem RS(0) & "; " & RS(1)
RS.MoveNext
Next R