Botão gravar

Oi pessoal,

Estou com o seguinte problema eu gostaria que o botão gravar, gravasse os dados no banco de dados SQL e esta dando erro pois quando mudo por exemplo para consulta ou outro botão ele apaga sozinhos os dados digitado em CPF ou CNPJ o que estou fazendo de errado?
Outro erro que da é que no campo CNPJ aparece os dados digitado em cpf como fazer para não acontecer isso?
Como fazer para gravar no banco de dados?

----------------------------------------------------------------------------------

Private Sub cmdGravar_Click()

Dim vCon As ADODB.Connection
Dim vCPF As ADODB.Recordset
Dim vCNPJ As ADODB.Recordset
Set vCon = New ADODB.Connection
vCon.CursorLocation = adocCliente.CursorLocation
vCon.ConnectionString = adocCliente.ConnectionString
vCon.Open

If txtNome = "" Then
MsgBox "Preencha o campo nome"
Exit Sub
End If
If txtEndereco = "" Then
MsgBox "Preencha o endereço"
Exit Sub
End If

Set vCPF = New ADODB.Recordset
Set vCNPJ = New ADODB.Recordset

vCPF.Open "Select * FROM clientes WHERE cpfcnpj='" & txtCPF.Text & "'", vCon, adOpenKeyset, adLockReadOnly
vCNPJ.Open "Select * FROM clientes WHERE cpfcnpj='" & txtCNPJ.Text & "'", vCon, adOpenKeyset, adLockReadOnly

Select Case cbo_tipo
Case cbo_tipo.List(0) 'pessoa fisica'
txtInsEst.Enabled = False
txtCNPJ.Enabled = False
txtRG.Enabled = True
txtCPF.Enabled = True
txtInsEst = ""
txtCNPJ = ""
If vCPF.EOF Then

If FU_ValidaCPF(txtCPF.Text) Then
adocCliente.Recordset("cpfcnpj") = txtCPF.Text
adocCliente.Recordset.Update

Else
MsgBox "CPF Inválido"
Exit Sub
End If
Else
If txtCPF = "" Then
MsgBox "Digitar o CPF !"
Else
MsgBox "CPF ja cadastrado no sistema"
End If
End If

Case cbo_tipo.List(1) 'pessoa juridica'
txtRG.Enabled = False
txtCPF.Enabled = False
txtInsEst.Enabled = True
txtCNPJ.Enabled = True
txtRG = ""
txtCPF = ""
If vCNPJ.EOF Then
If VALIDA_CNPJ(txtCNPJ.Text) Then
adocCliente.Recordset.Update
Else
MsgBox "CNPJ Inválido"
Exit Sub
End If
Else
If txtCNPJ = "" Then
MsgBox "Digitar o CNPJ !"
Else
MsgBox "CNPJ ja cadastrado no sistema"
End If
End If

End Select

adocCliente.Recordset.Update

End Sub

----------------------------------------------------------------------------------

Obrigada