ERRO UPDATE

MATHEUSGE 15/12/2011 12:50:56
#391429

Olá galera.

Tenho o seguinte código:

Private Sub cmdSalvar_Click()
On Error GoTo erro
con.BeginTrans
Call VerificarCampos
If Flag <> 1 Then
Exit Sub
Else
data = CDate(mskData.Text)
If Op = 1 Then
Dim intRetorno As Integer
con.Execute [Ô]INSERT INTO Cliente(CdCliente, Nome, Endereco, Cidade, CEP, Bairro, DtCadastro, TelefoneFixo, Celular, TotalDeDebito) VALUES ([ô][Ô] & txtCdCliente & [Ô][ô] , [ô][Ô] & txtNome & [Ô][ô] , [ô][Ô] & txtEndereco & [Ô][ô] , [ô][Ô] & txtCidade & [Ô][ô] , [ô][Ô] & txtCEP & [Ô][ô] , [ô][Ô] & txtBairro & [Ô][ô] , [ô][Ô] & Format(data, [Ô]MM/DD/YYYY[Ô]) & [Ô][ô] , [ô][Ô] & txtTel & [Ô][ô] , [ô][Ô] & txtCel & [Ô][ô] , [ô][Ô] & txtDeb & [Ô][ô]);[Ô], intRetorno
con.CommitTrans
If intRetorno <> 0 Then
MsgBox [Ô]Cadastro concluído![Ô]
Exit Sub
Else
MsgBox [Ô]Código existente![Ô]
Exit Sub
End If
Else
con.Execute [Ô]UPDATE Cliente SET Nome = [ô][Ô] & txtNome & [Ô][ô] , Endereco = [ô][Ô] & txtEndereco & [Ô][ô], Cidade = [ô][Ô] & txtCidade & [Ô][ô], CEP = [ô][Ô] & txtCEP & [Ô][ô], Bairro = [ô][Ô] & txtBairro & [Ô][ô], DtCadastro = [ô][Ô] & mskData & [Ô][ô], TelefoneFixo = [ô][Ô] & txtTel & [Ô][ô], Celular = [ô][Ô] & txtCel & [Ô][ô], TotalDeDebito = [ô][Ô] & txtDeb & [Ô][ô] where CdCliente = [ô][Ô] & txtCdCliente & [Ô][ô]);[Ô]
rs.Open strSQL
con.CommitTrans
MsgBox [Ô]Atualizado com sucesso![Ô]
Exit Sub
End If
End If

erro:
MsgBox [Ô]Número : [Ô] & Str$(Err.Number) & vbCrLf & _
[Ô]Descrição : [Ô] & Err.Description & vbCrLf & _
[Ô]Gerado por : [Ô] & Err.Source, vbCritical
Exit Sub
End Sub


Porém, não estou conseguindo fazer o UPDATE. Pesquiso qualquer registro e tento alterar o nome, ao clicar em salvar ele não da nenhum erro, e nem mensagem de sucesso. Alguem poderia me ajudar ;x