[Resolvido] Problemas para Atualizar Banco de Dados

Pessoal estou fazendo um projeto de sistema de cadastro, porem como o formulário é grande, quando vou salvar o botão fica selecionando mas não salva.

Segue a baixo o código.

Dim Aquivo As String
Dim Comando As String
Dim SQL As String
Dim Conexao As ADODB.Connection
Dim Tabela As ADODB.Recordset

Private Function Abre_Conexao()
Arquivo = App.Path & "\Dados.mdb"
Comando = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Arquivo & ""
Set Conexao = New ADODB.Connection
With Conexao
.ConnectionString = Comando

 .Open
 End With
 Set Tabela = New ADODB.Recordset

End Function

Private Function Fecha_Conexao()
Tabela.Close
Set Tabela = Nothing
Conexao.Close
Set Conexao = Nothing
End Function

Public Function CadastrarUsuario()
Abre_Conexao

 SQL = "Select * From [CadClientes]"
 Tabela.Open SQL, Conexao, adOpenDynamic, adLockOptimistic
 If Not Tabela.EOF Then
 With Tabela
 .AddNew
 Tabela("CPF") = txtCPF
 Tabela("Cliente") = txtClientes
 Tabela("Empresa") = txtEmpresa
 Tabela("ResInforma") = txtResInfomacao
 Tabela("Endereco") = txtEndereco
 Tabela("Bairro") = txtBairro
 Tabela("Cidade") = txtCidade
 Tabela("Estado") = txtEstado
 Tabela("Telefone") = txtTelefone
 Tabela("Celular") = txtCelular
 Tabela("CEP") = txtCEP
 Tabela("RG") = txtRG
 Tabela("LocTrabalho") = txtLocTrabalho
 Tabela("Veiculo") = txtVeiculo
 Tabela("Marca") = txtMarca
 Tabela("Ano") = txtAno
 Tabela("Cor") = txtCor
 Tabela("Placa") = txtPlaca
 Tabela("ResEmpresa") = txtResEmpresa
 Tabela("DataCadastro") = txtData
 Tabela("KM") = txtKM
 Tabela("OBS") = txtOBS
 .Update
 End With
 CadastraUsuario = True
 Else
 CadastraUsuario = False
 End If
 Fecha_Conexao

End Function

Private Sub cmdSalvar_Click()
If CadastrarUsuario = True Then
MsgBox "Cadastro realizado com sucesso", vbInformation, "Cadastro"
End If
End Sub

Se puderem me ajudar agradeço