hvorfor melder den "no value given" på det her script. ??

hvorfor virker det, kan virklig ikke se fejlen.....

kode.:

if request.form <> "" then
    stremail = request.form("login")
    'response.write stremail
   
    Set ObjConn = Server.createobject("ADODB.Connection")
    ObjConn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath("pizzagate.mdb")
    Set ObjRS = Server.createObject("ADODB.Recordset")
   
    GlemtSQL = "select Adgangskode from tblbruger where Email=" & stremail
    'GlemtSQL = GlemtSQL & " AND " & "Email" & " like '%" & StrEmail & "%' "
    ObjRS.open GlemtSQL,Objconn


fejl meddelse.:
Error Type:
Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.