Pulling up a record from a combo box

[dave]

I am trying to have it then when i select a record from
the combobox, it will go to that record, but for
somereason it is not working, here is the code:


Option Compare Database

Private Sub Combo39_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Phone Number] = '" & Me![Combo39] & "'"
Me.Bookmark = rs.Bookmark
End Sub