Eu fiz um botão chamado cmdGravar quando clico em gravar o campo CPF fica em branco.

         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
                    txtCPF = 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
cmdGravar = adocCliente.Recordorset.Update

Qual deve ser o procedimento para não ficar em branco?

Obrigada

If FU_ValidaCPF(txtCPF.Text) Then
   adocCliente.Recordset("CPF") = txtCPF.Text ' "CPF" = Nome do campo no BD

   adocCliente.Recordset.Update
 Else

   MsgBox "CPF Inválido"
Exit Sub