Ошибка Run-Time error 13

[DEZuv]

в форме при выборе из списка выдает такую ошибку и ссылается на ету строчку(rs.FindFirst "[Num] = " & Str(Me![ПолеСоСписком48])). Помогите кто знает в чем м.б дело:

Private Sub ПолеСоСпмском48_AfterUpdate()
' Поиск записи соответствующий этому элементу управления.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Num] = " & Str(Me![ПолеСоСписком48])
Me.Bookmark = rs.Bookmark
End Sub