Insert Em VB

[Vand 0]

Esta dando erro no insert, na tabela o campo numerocopias esta como numerico.Private Sub Command4_Click()Set cn = New ADODB.Connectionconnstring = "provider=microsoft.jet.oledb.4.0;data source=c:\print.mdb;"cn.Open connstringcd.ShowPrinterpaginainicial = cd.FromPagepaginafinal = cd.ToPagenumerocopias = cd.CopiesFor i = 1 To numerocopiasPrinter.Print "teste"Printer.EndDocNextSet rs = cn.Execute("insert into tb_numerocopias(numerocopias)values("&numerocopias&")")End SubOnde esta o erro?Obrigado

[Dennys Lopes 0]

que erro que esta dando ??

[Vand 0]

"syntax error"

[Dennys Lopes 0]

tente colocar só assim:cn.Execute "insert into tb_numerocopias(numerocopias)values("&numerocopias&")"

[Vand 0]

Olha q lixo....

Parou de dar erro e funcionou numa boa, mas tive que fazer isso:

 

Set rs = cn.Execute("insert into tb_numerocopias(numerocopias) values(" & numerocopias & " ) ")

 

Dar espaço entre ( e "............estranho né?

 

Mas de qualquer forma, vlw...

[Dennys Lopes 0]

É ...... estranho mesmo ... Eu costumo usar direto 'Execute'conexao.Execute "INSERT INTO tblCadastro (IDCad) Values (" & ID & ")"Mas, como funcionou beleza !!