Как при добавлении записи в таблицу сделать выпадающий список с вариантами записей - VB

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

Ребят, у меня создана база mysql и через odbc конектор база подключена к Vb6. Вопрос как в Vb6, при добавлении записи в таблицу сделать выпадающий список с вариантами записей. Пример... Есть таблица автомашини, и поле марка... так вот как в ВБ6, Сделать выпадающий список заранее известных нам марок....например там Ford, Fiat, Mazda.... Так же возможно ли сделать автодополнение текста при заполнении.... Заранее спасибо.

Решение задачи: «Как при добавлении записи в таблицу сделать выпадающий список с вариантами записей»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim colpoley As Integer, Combo_List1() As Integer
Dim List_Count(1) As Integer
 
Data1.DatabaseName = "ПУТЬ К ТВОЕЙ БАЗЕ ДАННЫХ"
 
Combo1(0).Clear
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(0).AddItem (Data1.Recordset.Fields("НАЗВАНИЕ ПОЛЯ").Value)
Combo_List1(i) = Data1.Recordset.Fields("Название поля к примеру 1 столбец").Value
Data1.Recordset.MoveNext
Next i