Code Error using 2 Combo Boxes

S

sara

I am trying to use the user's choices from 2 combo boxes (Client Number and
Date) to select data to display on the subform. I am getting an error in the
code - on the
rs.FindFirst statement.

I started with only one combo box, all code generated by the wizard. Then I
tried to add the second and modify the code.

Here's the code:

Private Sub CboClSaleDate_AfterUpdate()

' Find the record that matches the control.'

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ClNum] =" & Str(Me![cboClNum]) & "[SaleDate] =" &
Str(Me![cboClSaleDate])
Me.Bookmark = rs.Bookmark

End Sub

Thanks so much.
Sara
 
Top