Botão Alterar está duplicando cadastro

[Mordomo]

Boa tarde,

Tenho uma tela de cadastro de clientes, e nela tem os botões, Incluir, Confirmar, Limpar, Alterar e Excluir. Acontece que quando clico no botão Alterar, para fazer alguma alteração no cadastro do cliente, ele está duplicando. Enfim, ao invés de apenas atualizar a alteração, está cadastrando de novo. 

Exemplo: Clico no botão Alterar, e os textbox ficam liberados para alterações. Depois que faço alguma alteração, clico no botão Confirmar, para atualizar os dados.

O código do botão Alterar é este:

Private Sub cmdAlterar_Click()
    txtRaz.BackColor = &H80000005
    txtFan.BackColor = &H80000005
    txtEnd.BackColor = &H80000005
    txtNum.BackColor = &H80000005
    txtBai.BackColor = &H80000005
    txtCid.BackColor = &H80000005
    cmbEst.BackColor = &H80000005
    txtCep.BackColor = &H80000005
    txtCnpj.BackColor = &H80000005
    txtIe.BackColor = &H80000005
    txtTel.BackColor = &H80000005
    txtObs.BackColor = &H80000005

    txtRaz.Enabled = True
    txtFan.Enabled = True
    txtEnd.Enabled = True
    txtNum.Enabled = True
    txtBai.Enabled = True
    txtCid.Enabled = True
    cmbEst.Enabled = True
    txtCep.Enabled = True
    txtCnpj.Enabled = True
    txtIe.Enabled = True
    txtTel.Enabled = True
    txtObs.Enabled = True
    cmdConfirmar.Enabled = True
    txtRaz.SetFocus
End Sub

O código do botão Confirmar é este:

Private Sub cmdConfirmar_Click()

    If txtRaz.Text <> "" Then
        RS.AddNew
        RS!cod = txtCod.Text
        RS!datcad = Date
        RS!raz = txtRaz.Text
        RS!fan = txtFan.Text
        RS!End = txtEnd.Text
        RS!num = txtNum.Text
        RS!bai = txtBai.Text
        RS!cid = txtCid.Text
        RS!est = cmbEst.Text
        RS!cep = txtCep.Text
        RS!CNPJ = txtCnpj.Text
        RS!Ie = txtIe.Text
        RS!tel = txtTel.Text
        RS!obs = txtObs.Text
        RS.Update
        
        RS_CONF.FindFirst "cod_cli=" & RS_CONF!cod_cli
        RS_CONF.Edit
        RS_CONF!cod_cli = txtCod.Text
        
        RS_CONF.Update
    
        cmdLimpar_Click
    Else
        MsgBox "Preencha os campos para o cadastro!", vbInformation + vbOKOnly, "FF Express"
        txtRaz.SetFocus
    End If

End Sub

Aguardo ajuda de vocês.