my problem is that when i click a record on combo1 i want text1 to be updated with the appropriate field for example combo1 populates a list of all names from database text1 should display the surname for the name selected in combo1
i am doing something very wrong !!! nb sample code below

private sub form_load()
Do
Combo1.AddItem rs("Donarname").Value
rs.MoveNext
Loop While Not rs.EOF

Private Sub Combo1_click()
If rs.EOF Then rs.MoveFirst
If rs.EOF Then rs.MoveLast
Text1 = rs.Fields("donarsurname").Value
rs.Move Val(Text1)
End Sub.

thanx!!!