ERRO AO SALVAR ALTERACAO FIREBIRD VB6

Private Sub Salvar()
    [ô]VERIFICA OS CAMPOS DE PREENCHIMENTO OBRIGATÓRIO
        
    If txtNome.Text = [Ô][Ô] Then GoTo erro
    If cmbEndereco.Text = [Ô][Ô] Then GoTo erro
    If txtNumero.Text = [Ô][Ô] Then GoTo erro
    If cmbBairro.Text = [Ô][Ô] Then GoTo erro
    If cmbCidade.Text = [Ô][Ô] Then GoTo erro
    If txtUF.Text = [Ô]__[Ô] Then GoTo erro
    If cmbFuncao.Text = [Ô][Ô] Then GoTo erro
    If txtSalario.Text = [Ô][Ô] Then GoTo erro

[ô]Salva dados na tabela de Funcionarios!
Ssql = Ssql & [Ô][Ô]
Ssql = Ssql & [Ô]UPDATE FUNCIONARIOS SET Funcionarios.alteracao=[ô][Ô] & Format(txtAlteracao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Usuario=[ô][Ô] & txtUsuario.Text & [Ô][ô],Funcionarios.Nome=[ô][Ô] & txtNome.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Sexo=[ô][Ô] & IIf(txtSexo.Text = [Ô]_[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtSexo.Text & [Ô][ô][Ô]) & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Nascimento=[Ô] & IIf(txtNasc.Text = [Ô]__/__/____[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & Format(txtNasc.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.RG=[ô][Ô] & TXTrg.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.CPF=[Ô] & IIf(txtCPF.Text = [Ô]___.___.___-__[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtCPF.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Endereco=[ô][Ô] & cmbEndereco.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Numero=[ô][Ô] & txtNumero.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Bairro=[ô][Ô] & cmbBairro.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Cidade=[ô][Ô] & cmbCidade.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.CEP=[Ô] & IIf(txtCEP.Text = [Ô]_____-___[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtCEP.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.UF=[Ô] & IIf(txtUF.Text = [Ô]__[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtUF.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Tel=[Ô] & IIf(txtTel.Text = [Ô](__)____-____[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtTel.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Cel=[Ô] & IIf(txtCel.Text = [Ô](__)____-____[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtCel.Text & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Funcao=[ô][Ô] & cmbFuncao.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Salario=[Ô] & IIf(txtSalario.Text = Empty, [Ô]Null[Ô], [Ô][ô][Ô] & CCur(txtSalario.Text) & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Comissionado=[ô][Ô] & txtCom.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.CarTrab=[ô][Ô] & txtTrab.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Admissao=[Ô] & IIf(txtAdmissao.Text = [Ô]__/__/____[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & Format(txtAdmissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Demissao=[Ô] & IIf(txtDemissao.Text = [Ô]__/__/____[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & Format(txtDemissao.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Motivo=[ô][Ô] & txtMotivo.Text & [Ô][ô],[Ô]
Ssql = Ssql & [Ô]Funcionarios.Observacao[ô][Ô] & txtOBS.Text & [Ô][ô] WHERE CODIGO=[ô][Ô] & txtCodigo.Text & [Ô][ô][Ô]
    With ConConexao
        .ActiveConnection = CONEXAO
        .CommandType = adCmdText
        .CommandText = Ssql
        CNN.BeginTrans
        .Execute
        CNN.CommitTrans
    End With

[ô]Adiciona um novo endereço,BAIRRO, CIDADE, FUNÇÃO, caso ele não exista
    Call AddComboEndereco
    Call AddComboBairro
    Call AddComboCidade
    Call AddComboFuncao
        
    Unload Me
    frmFuncionarios.Show
    
    Exit Sub

erro:
    MsgBox [Ô]Favor preencher os campos obrigatórios: Nome, Admissão, Endereço, Número/Complemento, Bairro, Cidade, UF, Função e/ou Salário.[Ô], vbCritical, [Ô]GWorks Softs[Ô]
End Sub

Ssql = Ssql & [Ô]Funcionarios.Sexo=[ô][Ô] & IIf(txtSexo.Text = [Ô]_[Ô], [Ô]Null[Ô], [Ô][ô][Ô] & txtSexo.Text & [Ô][ô][Ô]) & [Ô][ô],[Ô]

Citação:

Private Sub chkComissao_Click()
If chkComissao.Value = Checked Then
txtCom.Text = [Ô]1[Ô]
Else
txtCom.Text = [Ô]0[Ô]
End If
End Sub