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

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

Подскажите как Сделать чтоб данные базы отображались в textBox не движком на Data, а выбором строки из ComboList За любую помощь безмерно благодарен.

Решение задачи: «VB6 Связать Базу с ComboList»

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

                            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
                        