كيف يمكن البحث ب combo

اضف هذا الكود

Private Sub Combo1_Click()
If Combo1.ListIndex <> -1 Then
    Text1.Text = Combo1.Text
End If
End Sub

هذا بالنسبه للـ text1

ماذا عن text2 and text3

كيف يمكن تعبيتها

وشكرا على ردك اخي راكان

Private Sub Combo1_Click()
If Combo1.ListIndex <> -1 Then
   Text1.Text = Combo1.Text
   rs.Open ("select * from tab where name='" & Text1.Text & "'")
   Text2.Text = rs("id")
   Text3.Text = rs("addrass")
   rs.Close
End If
End Sub