Meu sistema de busca

Galera, não consigo achar onde está o erro da minha busca.

Aí vai:

Private Sub cmdPESQUISAR_Click()        ' ------------------' Sistema de busca  |' ------------------                Dim Nome As String        Dim Registro As Variant            Nome = InputBox("Digite o nome da Praça desejada: ", " Localizar")                If Nome = "" Then   ' CASO NAO DIGITADO NADA           Exit Sub         ' FIM DE BUSCA        End If                        Registro = datPrimaryRS.Recordset.Bookmark        datPrimaryRS.Recordset.MoveFirst        datPrimaryRS.Recordset.Find "Nome = '" & FormatLike(Nome) & "'"        ' ------------------' Caso nao encontre |' ------------------                If datPrimaryRS.Recordset.EOF Then           datPrimaryRS.Recordset.Bookmark = Registro' MENSAGEM DE ERRO           MsgBox ("PRAÇA NÃO LOCALIZADA! DIGITE COM GRAFIA CORRETA (C/ ACENTUAÇÃO)")        End IfEnd Sub

Se alguem puder me dar uma maozinha...

[]´s