SubForm based on ComboBox

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

Set rs = Me.Recordset.Clone
rs.FindFirst "[MembersID] = " & Str(Nz(Me![Combo6], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

On the Combo6_LostFocus & GotFocus the code is
Me.Combo6.Requery
and for Form_GotFocus()

I don't get any errors - I just get that bell which basically doesn't tell me anything.
There's two tables: tblDues & tblMembers
Primary Key MembersID

Attached Files

DbSample.zip (27.6 KB)