Combobox Bookmark Not working?

[rebelgeek]

The following code works except for the final Bookmark syncronization??
Why??
Form is linked to a query with key in decsending order.
Debug print prints each time a phone number is found.

Option Compare Database
Option Explicit
Private Sub Combo0_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[fldPhone] = '" & Me!Combo0 & "'"
If Not rs.EOF Then
    Debug.Print "Found"
    Me.Bookmark = rs.Bookmark
End If
End Sub

Thanks!!
Bruce...

 

[rebelgeek]

Success the following code works in Access 2007

Private Sub cboPhone_AfterUpdate()
    Dim strCriteria As String
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    strCriteria = "[fldKey] = " & Screen.ActiveControl
    rs.FindFirst strCriteria
    If Not rs.EOF Then
        Me.Bookmark = rs.Bookmark
    End If
End Sub