Novo Erro

[Beavis440 0]

Estou me deparando com um novo erro, alguém pode me ajudar.

    AbreConexao2
   Dim SQL As String
   Dim conexao As New ADODB.Connection
   If VerificaCadastro(txtCPF) = True Then
       MsgBox "Cliente ja Cadastrado!", vbInformation, "Cadastro"
   Else
       SQL = "Insert Into CadClientes(CPF, Cliente, Empresa, ResInforma, Endereco, Bairro, Cidade, Estado, Telefone, Celular, CEP, RG, LocTrabalho, Veiculo, Marca, Ano, Cor, Planca, ResEmpresa, Data, KM, OBS) Values('" & txtCPF.Text & "','" & txtCliente.Text & "','" & txtEmpresa.Text & "','" & txtResInfoma.Text & "','" & txtEndereco.Text & "','" & txtBairro.Text & "','" & txtCidade.Text & "','" & txtEstado.Text & "','" & txtTelefone.Text & "','" & txtCelular.Text & "','" & txtCEP.Text & "','" & txtRG.Text & "','" & txtLocTrabalho.Text & "','" & txtVeiculo.Text & "','" & txtMarca.Text & "'," & txtAno.Text & ",'" & txtCor.Text & "','" & txtPlaca.Text & "','" & txtResEmpresa.Text & "','" & txtData.Text & "'," & txtKM.Text & ",'" & txtOBS.Text & "')"
       conexao.Open SQL <<<<<<<<Erro acontece aqui!!
       MsgBox "Cadastro Realisado Com Sucesso!", vbInformation, "Cadastro"
   End If
   FechaConexao2

 

O erro é o seguinte

error -2147467259 (80004005)

[Microsoft][ODBC Driver Manager] Nome de Fonte de dados muito longo.

[jaguar1 0]

Estou me deparando com um novo erro, alguém pode me ajudar.

    AbreConexao2
   Dim SQL As String
   Dim conexao As New ADODB.Connection
   If VerificaCadastro(txtCPF) = True Then
       MsgBox "Cliente ja Cadastrado!", vbInformation, "Cadastro"
   Else
       SQL = "Insert Into CadClientes(CPF, Cliente, Empresa, ResInforma, Endereco, Bairro, Cidade, Estado, Telefone, Celular, CEP, RG, LocTrabalho, Veiculo, Marca, Ano, Cor, Planca, ResEmpresa, Data, KM, OBS) Values('" & txtCPF.Text & "','" & txtCliente.Text & "','" & txtEmpresa.Text & "','" & txtResInfoma.Text & "','" & txtEndereco.Text & "','" & txtBairro.Text & "','" & txtCidade.Text & "','" & txtEstado.Text & "','" & txtTelefone.Text & "','" & txtCelular.Text & "','" & txtCEP.Text & "','" & txtRG.Text & "','" & txtLocTrabalho.Text & "','" & txtVeiculo.Text & "','" & txtMarca.Text & "'," & txtAno.Text & ",'" & txtCor.Text & "','" & txtPlaca.Text & "','" & txtResEmpresa.Text & "','" & txtData.Text & "'," & txtKM.Text & ",'" & txtOBS.Text & "')"
       conexao.Open SQL <<<<<<<<Erro acontece aqui!!
       MsgBox "Cadastro Realisado Com Sucesso!", vbInformation, "Cadastro"
   End If
   FechaConexao2

 

O erro é o seguinte

error -2147467259 (80004005)

[Microsoft][ODBC Driver Manager] Nome de Fonte de dados muito longo.

 

 

 

Parece que existe nome de campo na sql que nao esta igual ao nome de campo na tabela! Verifique Planca se é Placa.

[KhaosDoctor 242]

Qual é a String de conexão?

[Beavis440 0]

Opa realmente esta errado a escrita da Placa é que estava errada.