[AccessD] Hi I am back and stuck

Hi Gang,

 

I am back and feeling silly. Can not make combo box work.

 

I want to go to the record the combo selects

 

 

 

Private Sub Combo27_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[EmpRecNum] = " & Str(Nz(Me![Combo27], 0))

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

End Sub

 

The sql

 

SELECT tblEmployee.EmpRecNum, tblEmployee.EmpNumber, tblEmployee.EmpFname,
tblEmployee.EmpLName, [emplname] & ", " & [empfname] & " " & [empNumber] AS
Expr1

FROM tblEmployee

ORDER BY tblEmployee.EmpLName;

 

I have it so that it is showing expression one but I get 

 

Run time error 13 on the following code line:

 

rs.FindFirst "[EmpRecNum] = " & Str(Nz(Me![Combo27], 0))

 

 

Please advise

 

Thanks

 

Joe