sql insert errror

[tekboy]

i got this error not sure how to fix this

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/insert.asp, line 41

my sql

sql="insert into NotifyMapping(MktID,MktMgr,MktDesc,MktMgrEmail) values ('" & MktID & "','" & MktMgr & "','"& MktDesc & "','" & MktMgrEmail & "')"
sql2="insert into zipcode(ID,Zip,Reg,BUID,KAMID,City,State) values ('" & Zip & "','" & Reg & "','" & BUID & "','" & KAMID & "','" & City & "','" & State & "')"



NotifyMapping table
=======
"MktID","MktMgr","MktDesc","MktMgrEmail"
10100,"aaa","Non-Market","aaa@aaa.com"
10101,"Kelly","San Jose ","bb@aaa.com"

zipcode table
==========
"ID","Zip","Reg","BUID","KAMID","MktID","City","State"
1,95122,2,201,"0",10100,"san jose","ca"
2,95123,2,201,"0",10101,"san jose","ca"


insert.asp
======

<%
'~~~~~~~~~~~~~This connection is for mysql
'set adoConn = Server.CreateObject("ADODB.Connection")
'set adoRS = Server.CreateObject("ADODB.Recordset")
'adoConn.Open "DSN=mysql"
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`


'~~~~~~~~~~~~~~~~`Access Database ADO connection
Dim objDC, objRS
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"
Set objRS = Server.CreateObject("ADODB.Recordset")

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``


Dim ustr, sql
Dim test
MktMgr = server.HtmlEncode(Request.Form("MktMgr"))
MktDesc = server.HtmlEncode(Request.Form("MktDesc"))
City = server.HtmlEncode(Request.Form("City"))
'Code = Replace(Request.form("Code") , "'", "''")
State = server.HtmlEncode(Request.Form("State"))
Zip = server.HtmlEncode(Request.Form("Zip"))
MktMgrEmail = server.HtmlEncode(Request.Form("MktMgrEmail"))
KAMID = server.HtmlEncode(Request.Form("KAMID"))
Reg = server.HtmlEncode(Request.Form("Reg"))

'~~~~~~~~~~~~~~~~~Insert the records into the dab
'sql="insert into zipcode(MktMgr,MktDesc,City,State,Zip,MktMgrEmail,KAMID,Reg) values ('" & MktMgr & "','" & MktDesc & "','" & City & "','"& State & "','" & Zip & "','" & MktMgrEmail & "','" & KAMID & "','" & Reg & "')"

'sql="insert into zipcode(Zip,Reg,BUID,KAMID,MktID,City,State) values ('" & Zip & "','" & Reg & "','" & BUID & "','"& KAMID & "','" & MktID & "','" & City & "','" & State & "')"
'sql2="insert into NotifyMapping(BUID,KAMID,MktMgr,MktDesc,MktMgrEmail) values ('" & BUID & "','" & KAMID & "','" & MktMgr & "','"& MktDesc & "','" & MktMgrEmail & "')"
sql="insert into NotifyMapping(MktID,MktMgr,MktDesc,MktMgrEmail) values ('" & MktID & "','" & MktMgr & "','"& MktDesc & "','" & MktMgrEmail & "')"
sql2="insert into zipcode(ID,Zip,Reg,BUID,KAMID,City,State) values ('" & Zip & "','" & Reg & "','" & BUID & "','" & KAMID & "','" & City & "','" & State & "')"


objDC.Execute sql
Response.Redirect("default.asp")
%>

[NogDog]

In the 2nd query, you have 7 columns in the list of columns, but only 6 values in the value list. If ID is an auto-incremented column, you could just remove it from the column list.