ComboBox в VB6 - Компьютерный форум OSzone.net

Народ, хелп ми плиз!

Форма на VB6, к ней подключена SQL тавлица. На форме один ComboBox + десяток TextBox -ов. В комбобоксе выбирается запись из первого столбца таблицы (это работает), и в TextBox -ах отображаются записи всей строки, соответствующие записи в комбобоксе.

Подскажите плиз, как это сделать. Желательно на пальцах или с примером.

Вот "первая половина":

Код:

 

Private Sub Form_Load() 

 * Dim vntContrid As Variant 

 * * 

 * On Error GoTo Form_LoadError 

 * 

 * Do While Not datLsps_contr.Recordset.EOF 

 * * *vntContrid = datLsps_contr.Recordset!contr_id 

 * * *If IsNull(vntTemp) Then vntContrid = &quot;&quot; 

 * * *cboContr_id.AddItem CStr(vntContrid) 

 * * *datLsps_contr.Recordset.MoveNext 

 * Loop 

 

Form_LoadExit: 

Exit Sub 

 * * 

Form_LoadError: 

 * *MsgBox &quot;Unexpected Error: &quot; &amp; Err.Description 

 * * 

End Sub

[s]Исправлено: Vitki, 16:23 10-05-2004[/s]