problemas con el combo

alvas
17 de Marzo del 2004
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