[Resolvido] Erro -2147217900

[luckiecroft 0]

Fala Galera!!!! Olha pessoal...tá dando erro -2147217900(nem sei que erro é esse) que não consigo encontrar será que vcs poderiam me ajudar?!?!?! Valeu!!!

A = CInt(Form_Principal.Text16.Text)			 'Matricula
	B = Form_Principal.Text2.Text			 'Nome
	C = Form_Principal.Text3.Text			 'Endereco
	D = Form_Principal.Text4.Text			 'Num
	E = Form_Principal.Text5.Text			 'Comp
	F = Form_Principal.Text6.Text			 'Bairro
	G = Form_Principal.Text7.Text			 'Cidade
	H = Form_Principal.Text8.Text			 'CEP
	I = Form_Principal.Combo1.Text			 'Estado
	J = Form_Principal.Text14.Text			 'Celular
	K = Form_Principal.Text13.Text			 'Telefone
	L = Form_Principal.Text15.Text			 'Email
	M = Form_Principal.Combo3.Text			 'Curso
	N = Form_Principal.Text17.Text			 'Turma
	O = Form_Principal.Text18.Text			 'Empresa
	P = Form_Principal.Text20.Text			 'Inicio
	Q = Form_Principal.Text21.Text			 'Termino
	R = Form_Principal.Text19.Text			 'Horas
	S = Form_Principal.Text10.Text			 'Identidade
	T = Form_Principal.Text11.Text			 'Emissor
	U = Form_Principal.Text12.Text			 'CPF
	v = Form_Principal.Combo2.Text			 'Sexo
	W = Form_Principal.Combo4.Text			 'Situacao
	X = Form_Principal.Text9.Text			 'Nascimento
	Y = Form_Principal.Text23.Text			 'Inicio_Aditivado
	Z = Form_Principal.Text22.Text			 'Termino_Aditivado

		Tabela_Estagiarios.Close

' AQUI DUE DÁ O ERRO
		Salvar_Novo_Estagiario.Open "Insert InTo Estagiarios (Matricula, Nome, Endereco, Num, Comp, Bairro, Cidade, CEP, Estado, Celular, Telefone, Email, Curso, Turma, Empresa, Inicio, Termino, Horas, Identidade, Emissor, CPF, Sexo, Situacao, Nascimento, Inicio_Aditivado, Termino_Aditivado) Values (" & A & ", '" & B & "', '" & C & "', '" & D & "', '" & E & "', '" & F & "', '" & G & "', '" & H & "', '" & I & "', '" & J & "', '" & K & "', '" & L & "', '" & M & "', '" & N & "', '" & O & "', '" & P & "', '" & Q & "', '" & R & "', '" & S & "', '" & T & "', '" & U & "', '" & v & "', '" & W & "', '" & X & "', '" & Y & "', '" & Z & "')", Conexao, adOpenKeySt, adLockReadOnly, adCmdText
'#############
		Call Conexao_Geral

[scorpio 7]

Tenta assim.

Salvar_Novo_Estagiario.Open "Insert InTo Estagiarios (Matricula, Nome, Endereco, Num, Comp, Bairro, Cidade, CEP, Estado, Celular, Telefone, Email, Curso, Turma, Empresa, Inicio, Termino, Horas, Identidade, Emissor, CPF, Sexo, Situacao, Nascimento, Inicio_Aditivado, Termino_Aditivado) Values (" & A & ", '" & B & "', '" & C & "', '" & D & "', '" & E & "', '" & F & "', '" & G & "', '" & H & "', '" & I & "', '" & J & "', '" & K & "', '" & L & "', '" & M & "', '" & N & "', '" & O & "', '" & P & "', '" & Q & "', '" & R & "', '" & S & "', '" & T & "', '" & U & "', '" & v & "', '" & W & "', '" & X & "', '" & Y & "', '" & Z & "')", Conexao, adOpenKeySet, adLockOptimistic, adCmdText

 

O adLockReadOnly é somente leitura.

 

Se continuar com o erro volta ae!

[luckiecroft 0]

Opa...cara, deu o mesmo erro...já verifiquei se as variáveis estavam erradas ou trocadas, verifiquei se alguns valores estão passando...usei até a consulta do acces com essa sintax e funcionou.....tô doidinho...hehehe. Mas, fico aguardando um help...dede já valeu a atenção de todos.

[luckiecroft 0]

Fala pessoal...consegui resolver mudando o nome da variável comp....a estrutura estava certa e,não sei pq, não estava aceitando. Quando mudei de "Comp" para "Complemento" funcionou. Obrigado pela atenção e ajuda.