Problema en cuadro combinado

Hola:

Tenia un formulario que funcionaba bien hasta que un cuadro combinado comenzó a darme el error 3021 "No hay ningún registro activo" Cuando clickeo en depurar me aparece el siguiente código como el responsable del error

Private Sub Cuadro_combinado97_AfterUpdate() ' Buscar el registro que coincida con el control. Dim rs As Object
Set rs = Me.Recordset.Clone rs.FindFirst "[ID] = " & Me![Cuadro combinado97] If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub

Les agradezco cualquier ayuda