multiple combo boxes recordset clone

[trigirl67]

I have 3 combo boxes, first has the choice of ID or name, the second gives a list of either IDs or names bases on what is picked on the first box and the 3rd box is a date. I want to do recordset clone for the other fileds on the form after update on the 3rd combo box.

If ist box is "ID", then choose id and date and condition would be where the 2nd and 3rd combo boxes equal the table values, BUT if the 1st box is "name" then pick the name from 2nd box and the date and where they match.
Here is what I have so far:
Private Sub RequestDate_AfterUpdate()

Dim rs As Object
Set rs = Me.Recordset.Clone
If [Searchbox] = "TIN" Then
rs.FindFirst "[TIN]=" & Str(Nz(Me![Combo148], 0)) & " AND " & _
"[Request Date] = #" & Me![RequestDate] & "#"

If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If


TIN is the id.
This works ,but how do I include the second condition of when [Searchbox] = "Name" because I think findfirst is only for one critieria.

[June7]

So if selection in searchbox is Name you want the search on name instead of ID? Use an ELSE or ElseIf.

If [Searchbox] = "TIN" Then
'do this FindFirst search
ElseIf [Searchbox] = "NAME" Then
'do this FindFirst search
End If
If Not rs.EOF Then Me.Bookmark = rs.Bookmark