Pessoal estou com um erro em uma pagina de inclusão sera que alguem sabe o que é?

            Descrição do Erro

 

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/web/JurisConsult/Tabela_OAB_Incluir.asp, line 39

            Codigo Fonte na parte do erro

Dim Conn, Rs
Dim vCod, vTip, vMax, VMin, vUlt, vMen, vSta, vKey
Dim  vEve, vUsu, vTab, vDat, vEst

vTip = Request.Form("TIPO_ACAO_TABELA_OAB")
vMax = Request.Form("VALOR_MAXIMO_TABELA_OAB")
vMin = Request.Form("VALOR_MINIMO_TABELA_OAB")
vUlt = Request.Form("ULTIMA_ATUALIZACAO_TABELA_OAB")
vSta = "Não"
Conn.Execute "Insert into TABELA_OAB(CD_TABELA_OAB, TIPO_ACAO_TABELA_OAB, VALOR_MAXIMO_TABELA_OAB, VALOR_MINIMO_TABELA_OAB, ULTIMA_ATUALIZACAO_TABELA_OAB, BLOQUEADO_TABELA_OAB, VINCULO_TABELA_OAB)" & _
                        "values ('" & vCod & "','" & _
                                     vTip & "','" & _
                                     vMax & "','" & _
                                      vMin & "','" & _
                                     vUlt & "','" & _
                                      vSta & "','" & _
                                     vSta & "')"

O erro da no insert, ja fiz varias vezes mais o erro continua o mesmo.

 

                                           Muito Obrigado;

                                                    Leandro.

Olá BALBINOS, aí vai uma dica: depure a string SQL na tela. Faça assim:

 

Dim Conn, Rs,SQL
Dim vCod, vTip, vMax, VMin, vUlt, vMen, vSta, vKey
Dim  vEve, vUsu, vTab, vDat, vEst
vTip = Request.Form("TIPO_ACAO_TABELA_OAB")
vMax = Request.Form("VALOR_MAXIMO_TABELA_OAB")
vMin = Request.Form("VALOR_MINIMO_TABELA_OAB")
vUlt = Request.Form("ULTIMA_ATUALIZACAO_TABELA_OAB")
vSta = "Não"
SQL="Insert into TABELA_OAB(CD_TABELA_OAB, TIPO_ACAO_TABELA_OAB, VALOR_MAXIMO_TABELA_OAB, VALOR_MINIMO_TABELA_OAB, ULTIMA_ATUALIZACAO_TABELA_OAB, BLOQUEADO_TABELA_OAB, VINCULO_TABELA_OAB)" & _
                        "values ('" & vCod & "','" & _
                                     vTip & "','" & _
                                     vMax & "','" & _
                                      vMin & "','" & _
                                     vUlt & "','" & _
                                      vSta & "','" & _
                                     vSta & "')"
response.Write(SQL)
response.End()
Conn.Execute(SQL)

ATENÇÃO: Batendo o olho percebi q vc tratou o campo CD_TABELA_OAB como string pois colocou a variável vCod entre aspas '', acho q isso pode estar causando o erro!

 

INTé +!