Есть на фроме combobox текстовые поля и элемент data
Код заполнения combobox:

Private Sub Form_Load()
Dim a As String
Dim k As Integer
k = 0
Data1.Refresh
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
a = Data1.Recordset.Fields("name").Value
Combo1.AddItem (a)
Data1.Recordset.MoveNext
k = k + 1
Loop
End If

End Sub

Как теперь сделать чтоб при выборе в комбобоксе нужной записи изменялись данные и в тесктбоксах?

Извиняюсь просто мусор лишний забыл убрать :))

Да нет вы меня не поняли, Я имею ввиду чтоб данные в тексбоксах менялись в соответствии с выбраными данными.... То есть например текстбокс1 выводит номер текстбокс2 имя ит т.д. При перемещении по базе данные изменяются. Так вот нужно чтоб например я выбрал в комбобоксе определённую запись а в текстбоксе вывелся номер и имя соостветствующие этой записи.То есть чтоб данные изменялись как при перемещении по базе при помощи элемента Data.

Блин...Не то.. Наверное я по неопытности неправильно задаю вопрос... Объясню по другому.
Есть база скажем описпние техники, в ней указано к примеру скорость, вес, тип, название... При помощи кнопок вперёд назад я могу перемещаться по базе и в текстбоксах меняются данные. В комбобоксе из базы выводятся названия техники из колонки name. Так вот нада чтоб я выбрал в комбобоксе что либо и в текстовых полях обновились данные выбранного пункта. То есть как мне переключить data1.recodset.ляляля ... Ну как будто я дошёл до этих данных путём перехода по базе при помощи кнопки Next. Фууууу думаю я понятно объяснил. Ну слаб я простите.
Заранее спасибо за терпеливость.
Да и кстати к базе я подключился через элемент Data.
Пока вот что получилось:

Option Explicit


Private Sub Form_Load()
Dim a As String

Data1.Refresh
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
a = Data1.Recordset.Fields("name").Value
Combo1.AddItem (a)
Data1.Recordset.MoveNext

Loop
End If

End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub Command1_Click()
With Data1.Recordset
.MoveNext
If .EOF Then .MoveLast
End With
End Sub

Private Sub Command2_Click()
With Data1.Recordset
.MovePrevious
If .BOF Then .MoveFirst

End With
End Sub

Так у меня тлько пока 2 тектбокса (для тестирования) а вообще предполагается штук 20, это что их все в переменные загонять? Может есть вариант чтоб просто по выбраному имени изменить данные в data и обновить как это делается кнопками перехода вперёд-назад. Чтоб в текстбоксах всё обновилось.

ООО вот это уже то. Только чтото я его нориально вставить не могу пробую вставлять в событие комбобокса - shange, но при попытке выбрать что то пишет "method or data member not found" именно на строке -

У data нет свойства find есть findnext, поменял теперь ругается :Object doesn't support this property or method... Рою дальше