Erro em código

Viva!

Há uns tempos guardei o seguinte código para pesquisar strings e que agora tentei adaptar:

***************************************************************

Private Sub Form_Current()
Dim rst As DAO.Recordset
    Dim strCriteria As String
    strCriteria = "[Descritores] Like '*" & InputBox("Texto " _ & "a pesquisar") & "*'"

    Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
    If rst.NoMatch Then
        MsgBox "Não localizado.", vbInformation
        Set rst = Nothing
        Exit Sub
    Else
        Me.Bookmark = rst.Bookmark
    End If
    While M_SN("Continuar?") = True
        rst.FindNext strCriteria
    If rst.NoMatch Then
        MsgBox "Não foram localizadas mais hipóteses", vbInformation
        Set rst = Nothing
        Exit Sub
    Else
        Me.Bookmark = rst.Bookmark
    End If
    Wend

End Sub

*****************************************************

Ao corrê-lo dá erro Sub or Function not defined, na linha

    While M_SN("Continuar?") = True

e evidencia M_SN

Como não consigo localizar a origem, peço ajuda para tentar perceber se se trata de um campo de uma tabela, de uma varíável não definida ou outra situação?

Obrigado.

an