alguém me ajuda?

[Leandro_Pirozzi]

Erro Apresentado:

Erro de sintaxe na instrução INSERT INTO

Private Sub cmdsalvarprop_Click()
    Dim SQLprop As String
    Dim icol As Integer
    
        
    Set rsprop = New ADODB.Recordset
    
        SQLprop = "INSERT INTO CONTATOS_PROPOSTA "
        SQLprop = SQLprop & "(CODEMP, CONTATO, CUSTO, CONDPAGTO, DATAPRO, STATUS, SEGURO, "
        SQLprop = SQLprop & "CONTABIL, RECADASTRO, CONFRONTO, AJUCONTABIL, EMPLAQ, CAUTELA, ECOFIN, "
        SQLprop = SQLprop & "FUNCOMERCIO, TECNO, ME, MU, EDIF, INSINDUSTRIAL, TERRENO, EQINF, VEICULO "
        SQLprop = SQLprop & "OUTRO, ESTIDESP, OBS, DATPROXCONT, MOTIVO, CODPROP, VENDA, MARCA, "
        SQLprop = SQLprop & "GARANTIA, SIAV, SIPAV, BOOK, MIGRASISCONT, MANUALNORMA, DISPOESPEC, FERRADISPO, "
        SQLprop = SQLprop & "INVENTFISICO, FLAG)"
        SQLprop = SQLprop & " VALUES( '" & Me.txtcodemp.Text & "' , "
        SQLprop = SQLprop & "'" & Me.txtcontato.Text & "' , "
        SQLprop = SQLprop & "'" & Me.txtcusto.Text & "' , "
        SQLprop = SQLprop & "'" & Me.txtcondpagto.Text & "' , "
        SQLprop = SQLprop & "'" & Me.datapro.Value & "' , "
        SQLprop = SQLprop & "'" & Me.cbostatus.Text & "' , "
        SQLprop = SQLprop & "'" & Me.CheSeguro.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheContabil.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheRecadastro.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheConfronto.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheAjuContabil.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheEmplaq.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheCautela.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheEcoFin.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheFunComercio.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheTecno.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheMe.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheMu.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheEdif.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheInsIndustrial.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheTerreno.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheEqInf.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheVeiculo.Value & "' , "
        SQLprop = SQLprop & "'" & Me.txtoutro.Text & "' , "
        SQLprop = SQLprop & "'" & Me.txtestidesp.Text & "' , "
        SQLprop = SQLprop & "'" & Me.txtobs.Text & "' , "
        SQLprop = SQLprop & "'" & Me.dataproxcont.Value & "' , "
        SQLprop = SQLprop & "'" & Me.txtmotivo.Text & "' , "
        SQLprop = SQLprop & "'" & Me.txtcodprop.Text & "' , "
        SQLprop = SQLprop & "'" & Me.CheVenda.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheMarca.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheGarantia.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheSiav.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheSipav.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheBook.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheMigra.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheManual.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheDispo.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheFerra.Value & "' , "
        SQLprop = SQLprop & "'" & Me.CheInvFis.Value & "' , "
        SQLprop = SQLprop & "'" & Me.txtFlag.Text & "')"
        
        cnprop.Execute SQLprop
               
        MsgBox "Cadastro de proposta efetuado com sucesso"
        Limpa_Propostas

End Sub

Editado Março 6, 2009 por kuroi
Adicionar tag CODE

[raphael_suporte]

qual erro que está dando??

se você estiver com o SQL Analayzer ( isso se estiver usando o SQL Server ) na mão, tenta rodar, pois o mesmo deve te mostrar o erro..

pode ter tipo de campo incompatível, ou a estrutura pode está incorreta, uma vírgula fora do lugar ou algo do tipo.

[Leandro_Pirozzi]

achei o erro.

tinha esquecido da virgula(,) depois de VEICULO.

VLw galera!!!