[Resolvido]Tratamento de Erros perde a funcionalidade após o primeiro tratamento

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
On Error GoTo TrataErro
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        StrSQL = "SELECT * FROM  tblRetorno"
        Set rsBaixa = CurrentDb.OpenRecordset(StrSQL)
        rsBaixa.MoveLast: rsBaixa.MoveFirst
        Do While Not rsBaixa.EOF
            StrSQLMov = "SELECT * FROM [movim geral] WHERE NossoNumero = " & rsBaixa!NossoNumero & ""
Aqui acontece o erro que vai para o case 3021... Após o primeiro tratamento volta pra
Do While.. se acontecer o erro novamente não o trata

            Set RsMovim = CurrentDb.OpenRecordset(StrSQLMov)
                RsMovim.Edit
                    RsMovim!statuscr = 1
                    RsMovim!valor11 = rsBaixa!valor11
                    RsMovim!VrBaixaCr = rsBaixa!VrBaixaCr
                    RsMovim!databaixa = rsBaixa!databaixa
                RsMovim.Update
               x = x + 1
            '--------------------------------------------------------------------
            'Atualiza a tabela BancoBrasilArquivoRetorno para marcar como baixado
            '--------------------------------------------------------------------
            rsBaixa.Edit
                rsBaixa!Baixado = 1
            rsBaixa.Update
            '--------------------------------------------------------------------
Continuar:
            rsBaixa.MoveNext
            nCount = nCount + 1
        Loop
    Case vbNo
        Exit Sub
    End Select
Exit Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
    DoCmd.Hourglass False
    DoCmd.Echo True
Exit Sub
TrataErro:
    Select Case Err.Number
        '----------------------------------------------------------------
        'Erro gerado caso não seja encontrado registro correspondente na
        'tabela movim geral ao baixar o tíulo, significa que na tabela
        'movim geral não existe o registro correspondente contido na
        'tabela tblRetorno
        '----------------------------------------------------------------
        Case 3021
            Dim RsLogErro1   As DAO.Recordset
            Dim StrSQLErro1      As String
            'Carrego a variável com a SQL da tabela
            StrSQLErro1 = "SELECT * FROM tblLogErroBaixa"
            'Carrego o recordset com a SQL
            Set RsLogErro1 = CurrentDb.OpenRecordset(StrSQLErro1)
                'Abre o recordset para novo registro
                RsLogErro.AddNew
                    'Atualizo os campos
                    RsLogErro!CpBanco = rsBaixa!CpBanco
                    RsLogErro!NossoNumero = rsBaixa!NossoNumero
                    RsLogErro!VrBaixaCr = rsBaixa!VrBaixaCr
                    RsLogErro!databaixa = rsBaixa!databaixa
                'Atualizo o recordset e consequentemente a tabela
                RsLogErro.Update
            'Emito mensagem com o erro ocorrido
            MsgBox "Não existe registro correspondente em Boletos Emitidos" _
                    & vbNewLine & "para o Título >>>>" _
                    & vbNewLine & "Nosso Número     :  " & rsBaixa!NossoNumero & "" _
                    & vbNewLine & "Banco                     : " & rsBaixa!CpBanco & "" _
                    & vbNewLine & "Data Baixa              : " & rsBaixa!databaixa & "" _
                    & vbNewLine & "Valor                       : " & rsBaixa!VrBaixaCr & "", vbCritical, "SEM TITULO CORRESPONDENTE"
            'Passo a execução ao rótulo cnontinuar,
            'continuando a percorrer os registros da tblRetorno
            GoTo Continuar
        Case Else
          DoCmd.Hourglass False
          DoCmd.Echo True
         'Chama a função global de tratamento de erros
         GlobalErrHandler (Me.Name)
  End Select
End Sub

Private Sub btnBaixa_Click()
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
On Error GoTo TrataErro
Dim NomeProcedimento As String
    NomeProcedimento = "btnBaixa_Click"
    'Adiciona o nome do procedimento à função
    PegaProcedimento (NomeProcedimento)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Dim RsMovim     As DAO.Recordset
Dim rsBaixa     As DAO.Recordset
Dim StrSQL      As String
Dim Msg         As String
Dim nCount      As Integer
Dim StrSQLMov   As String
'---------------------------------------------------------------------
'Verifica se existem registros em aberto para o banco
'---------------------------------------------------------------------
If DCount("*", "[movim geral]", "statuscr = 0") = 0 Then
    MsgBox "Não existem títulos em Aberto para serem baixados!", vbInformation, "ATENÇÃO"
    Exit Sub
End If
'-----------------------------------------------------------------------------
'Verifica se existem registros em Baixados na tabela tblRetorno
'-----------------------------------------------------------------------------
If DCount("*", "TblRetorno", "Baixado = 0") = 0 Then
    MsgBox "Não existem títulos de Retorno em Aberto!", vbInformation, "ATENÇÃO"
    Exit Sub
End If
'-----------------------
'Mensagem de confirmação
'-----------------------
Msg = MsgBox("Deseja Baixar os Títulos importados?", vbYesNo + vbQuestion, "BAIXA DE TÍTULOS")
'--------------------------------------
'Carega a variável com a SQL da tabela
'--------------------------------------
StrSQL = "SELECT * FROM  tblRetorno"
'----------------
'Seleção do case
'----------------
Select Case Msg
    Case vbYes
        '--------------------------
        'Seta o recordset com a SQL
        '--------------------------
        Set rsBaixa = CurrentDb.OpenRecordset(StrSQL)
        rsBaixa.MoveLast: rsBaixa.MoveFirst
        '--------------------------------------------------------------------------------------
        'Executa loop pelo recordset atualizando o respectivo lançamento na tabela movim geral
        '--------------------------------------------------------------------------------------
        Do While Not rsBaixa.EOF
            '----------------------------------------------------------------------------------------
            'Carrega na variável a SQL da tabela movim geral filtrado pelo NossoNumero
            '----------------------------------------------------------------------------------------
            StrSQLMov = "SELECT * FROM [movim geral] WHERE NossoNumero = " & rsBaixa!NossoNumero & ""
            '--------------------------
            'Seta o recordset com a SQL
            '--------------------------
            Set RsMovim = CurrentDb.OpenRecordset(StrSQLMov)
            If RsMovim.RecordCount > 0 Then
                RsMovim.Edit
                    RsMovim!statuscr = 1
                    RsMovim!valor11 = rsBaixa!valor11
                    RsMovim!VrBaixaCr = rsBaixa!VrBaixaCr
                    RsMovim!databaixa = rsBaixa!databaixa
                RsMovim.Update
                '--------------------------------------------------------------------
                'Atualiza a tabela BancoBrasilArquivoRetorno para marcar como baixado
                '--------------------------------------------------------------------
                rsBaixa.Edit
                    rsBaixa!Baixado = 1
                rsBaixa.Update
                '--------------------------------------------------------------------
                rsBaixa.MoveNext
                nCount = nCount + 1
            Else
                '----------------------------------------------------------------
                'Erro gerado caso não seja encontrado registro correspondente na
                'tabela movim geral ao baixar o tíulo, significa que na tabela
                'movim geral não existe o registro correspondente contido na
                'tabela tblRetorno
                '----------------------------------------------------------------
                Dim RsLogErro   As DAO.Recordset
                Dim StrSQLErro      As String
                'Carrego a variável com a SQL da tabela
                StrSQLErro = "SELECT * FROM tblLogErroBaixa"
                'Carrego o recordset com a SQL
                Set RsLogErro = CurrentDb.OpenRecordset(StrSQLErro)
                    'Abre o recordset para novo registro
                    RsLogErro.AddNew
                        'Atualizo os campos
                        RsLogErro!CpBanco = rsBaixa!CpBanco
                        RsLogErro!NossoNumero = rsBaixa!NossoNumero
                        RsLogErro!VrBaixaCr = rsBaixa!VrBaixaCr
                        RsLogErro!databaixa = rsBaixa!databaixa
                    'Atualizo o recordset e consequentemente a tabela
                    RsLogErro.Update
                'Emito mensagem com o erro ocorrido
                MsgBox "Não existe registro correspondente em Boletos Emitidos" _
                        & vbNewLine & "para o Título >>>>" _
                        & vbNewLine & "Nosso Número     :  " & rsBaixa!NossoNumero & "" _
                        & vbNewLine & "Banco                     : " & rsBaixa!CpBanco & "" _
                        & vbNewLine & "Data Baixa              : " & rsBaixa!databaixa & "" _
                        & vbNewLine & "Valor                       : " & rsBaixa!VrBaixaCr & "", vbCritical, "SEM TITULO CORRESPONDENTE"
                'Passo a execução ao rótulo cnontinuar,
                'continuando a percorrer os registros da tblRetorno
                rsBaixa.MoveNext
                nCount = nCount + 1
            End If
        Loop
    Case vbNo
        Exit Sub
    End Select
    '------------------
    'Atualiza a ListBox
    '------------------
    Me.LstBol.Requery
    Me.lstRetorno.Requery
    MsgBox "Foram baixado(s) " & nCount & " Títulos!", vbInformation, "BAIXA EFETUADA"
Exit Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
    DoCmd.Hourglass False
    DoCmd.Echo True
Exit Sub
TrataErro:
    Select Case Err.Number
        Case 0
            'Não é um erro
        Case Else
          DoCmd.Hourglass False
          DoCmd.Echo True
         'Chama a função global de tratamento de erros
         GlobalErrHandler (Me.Name)
  End Select
End Sub