problemas con el combo
Tengo una aplicacion y quiero que al hacer un click sobre un elemento de un combo escriba en 2 cuadros de texto de la siguiente forma:
Private Sub Combo1_Click()
Do While Data1.Recordset.EOF = False
If Combo1.Text = Data1.Recordset("Nombre") Then
txtNombre.Text = Data1.Recordset("Nombre")
txtTelefono.Text = Data1.Recordset("telefono")
End If
Data1.Recordset.MoveNext
Loop
End Sub
Pero no escribe nada, hago lo mismo con una lista y sà lo hace
Private Sub Combo1_Click()
Do While Data1.Recordset.EOF = False
If Combo1.Text = Data1.Recordset("Nombre") Then
txtNombre.Text = Data1.Recordset("Nombre")
txtTelefono.Text = Data1.Recordset("telefono")
End If
Data1.Recordset.MoveNext
Loop
End Sub
Pero no escribe nada, hago lo mismo con una lista y sà lo hace