如何取得 MDB資料庫 自動編號

set cn=server.createobject("adodb.connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("data1.m")
set rs=server.CreateObject("ADODB.Recordset")
sql = "select max(Type_Id) as Type_ID_max from Car_Type"
rs.open sql,cn,0,1
    if rs.eof=false then Type_ID_max = rs("Type_ID_max")+1 end if
    rs.close
sql = "select * from car_type"
rs.open SQL,cn,1,3
 rs.addnew
 rs("type_id") = Type_ID_max  '自動編號
 rs("type_nm")  = request("type_nm")
 rs("car_status") = request("car_status")
rs("inp_user") = request("inp_user")
 rs("inp_date") =  request("inp_date")
 rs.Update