Error Type: Microsoft JET Database Engine (0x80040E07) Data type mismatch in criteria expression.

Error Type:
Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
/vms/save_edited_vendor.asp, line 30

got this error when i run the system. i think it is because the company_id is integer. i don't know the format for integer in ASP. the code are as follows:
------------------

<%
'declare variables
Dim Conn,DSN,rs,strsql
company_id=session("company_id")

company_name= Request.Form("companyname_text")
address= Request.Form("address_text")
postcode= Request.Form("postcode_text")
city= Request.Form("city_text")
state= Request.Form("state_list")
phone= Request.Form("phone_text")
fax= Request.Form("fax_text")
email= Request.Form("email_text")
website= Request.Form("website_text")
            
            Set Conn=Server.CreateObject("ADODB.Connection")
            Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/db1.mdb")            
            Set SQL= Server.CreateObject("ADODB.Recordset")
            SQL.Open "SELECT * From vendor WHERE company_id='"&company_id&"'",Conn,2,2 <--- line 30
                        
            SQL("company_name")=company_name
        SQL("address")=address
        SQL("postcode")=postcode
            SQL("city")=city
            SQL("state")=state
            SQL("phone")=phone
            SQL("fax")=fax
            SQL("email")=email
            SQL("website")=website
            SQL.Update
Conn.Close
Set Conn = Nothing      
%>

-----------------------

Thanks & Regards