[OFF] ONDE ESTA O ERRO NA ROTINA DE EXCLUSAO

Private Sub ApagaPagamentosCheques()
    
    ' Confirmada a Exclusao
    ' Elimina Frete da Tabela PagamentosFretes se for o caso
    If txtValorPgtoFrete.Text <> "" Then
        ' Elimina Frete
        strSQL = ""
        strSQL = "DELETE * FROM PagamentosFretes WHERE Vale = " & CLng(Format(txtVale.Text, "#####0"))
        ' Inicio da Transacao SQL
        cnCeramica.BeginTrans
        ' Nomeia Label para Tratamento de Erro
        On Error GoTo ErrPgtoChequeEXC
        ' Limpa Tabela de Errors
        cnCeramica.Errors.Clear
        ' Executa Comando SQL
        cnCeramica.Execute (strSQL)
    End If
    
    ' Elimina Cheque da Tabela PagamentosCheques
    strSQL = ""
    strSQL = "DELETE * FROM PagamentosCheques WHERE NumeroPagamento = " & txtNumeroPagamento.Text
 
    ' Inicio da Transacao SQL
    cnCeramica.BeginTrans
    ' Nomeia Label para Tratamento de Erro
    On Error GoTo ErrPgtoChequeEXC   
    ' Limpa Tabela de Errors
    cnCeramica.Errors.Clear
    ' Executa Comando SQL
    cnCeramica.Execute (strSQL)
    
    ' GRAVA CC de Clientes - EXCLUSAO de Pagamentos CHEQUES
    Dim StrErr As Boolean
    GravaCC txtCodigoCliente.Text, txtCodigoVendedor.Text, dteDataEmissao.Text, _
            "EXCLUSAO Pagamento CHEQUE Numero: " & txtNumeroPagamento.Text, _
            txtValorDoc, "0", "X", txtNumeroPagamento.Text, StrErr
    If StrErr Then
        ' Erro Na Gravacao do CC do Cliente
        MsgBox "EXCLUSAO - Erro na Gravacao do CC do Cliente."
        Exit Sub
    End If
    
    ' Efetiva a Transacao SQL nas Tabelas
    cnCeramica.CommitTrans

    Exit Sub
    
ErrPgtoChequeEXC:
    ' No caso de Erro Desfazer alteracoes nas Tabelas
    cnCeramica.RollbackTrans
    funGravaErro Err.Number, Err.Description, Err.Source
End Sub

Public Function GravaCC(ByVal strCodigoCliente As String, ByVal strCodigoVendedor As String, _
                        ByVal strDataLancamento As String, ByVal strDesc As String, _
                        ByVal strValor As String, ByVal strValorComissao As String, _
                        ByVal strTipo As String, ByVal strNumero As String, _
                        ByVal bolErro As Boolean)
    ' Grava Dados na Tabela de Conta Corrente dos Clientes e Vendedores

' Ativa Tratamento de Erros
On Error GoTo ErrGravaCC
                                
    ' Inicializa Variavel para Controle das transacoes SQL
    bolSQLBeginTrans = False
    ' Definicao de Variveis Locais

....... (Diversos Comandos)


    ' Inicia Transacao SQL
    cnCeramica.BeginTrans
    bolSQLBeginTrans = True
    

........ (Diversos Comandos)

    
    ' Executa os Comandos SQL nas Tabelas do BD
    cnCeramica.CommitTrans
    bolSQLBeginTrans = False

    Exit Function

ErrGravaCC:
    ' Se deu Erro DESFAZ alteracoes no BD
    If bolSQLBeginTrans Then
        cnCeramica.RollbackTrans
    End If
    funGravaErro Err.Number, Err.Description, Err.Source
End Function