Combo box and database

Hi!
I a problem which I would appreciate sime help on!

what I am trying to do is select a name from a list and get my program to display the record in the database for the selected surname.

what I Have at the moment is:

Private Sub cmdFind_Click()
Const Apos As String = "'"
Dim Target As String


Surname = InputBox("What is the Surname?")
Target = "Surname = " & Apos & Surname & Apos
Combo2.Clear
datSponsor.Recordset.FindFirst Target

Do Until datSponsor.Recordset.NoMatch
Combo2.AddItem datSponsor.Recordset("Surname") datSponsor.Recordset.FindNext Target
MsgBox ("Select Surname from Drop down List")
Loop

End Sub

This works fine as it searches with just the surname using the following code:

Private Sub cmdFind2_Click()

Target = "Surname = " & "'" & Combo2.Text & "'"
datSponsor.Recordset.FindFirst Target

End Sub

However the problem is when I use the code:

Combo2.AddItem datSponsor.Recordset("Surname") & (" ") & datSponsor.Recordset("Forename")

to display the surname and the forename in the combo box and don't have a clue when using two criteria i.e. surname, forename to dispaly the whole record!

Could someone please help me out?

i'm still too new to vb to help you with that one.

your problem "Combo box and database
Hi!
I a problem which I would appreciate sime help on!

what I am trying to do is select a name from a list and get my program to display the record in the database for the selected surname."

if you were doing it in ms access, i could tell you how.. basically a lookup .

sorry about that.

kevin

I've always used queries to find things in a database, but you can try this:

VB Code:

Combo2.AddItem datSponsor.Recordset(0) & (" ") & datSponsor.Recordset(1)