تكفى يا المعزاب الله يرحم والديك

Set objConn = CreateObject("ADODB.Connection")
  objConn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & _
  Server.MapPath("food.mdb"))

إذاكان إسم الجدول  food
set rs=objConn.Execute("insert into food(type,cost) value ('"&request("type")&"','"&request("cost")&"'")