syntax fejl i min sql

dim emne, tekst, session1, tid, ipnr, email, navn

emne= Trim(Replace(Request.Form("emne"),"'",""))
tekst= Trim(Replace(Request.Form("tekst"),"'",""))
session1= Trim(Replace(Request.form("session1"),"'",""))
tid= Request.form("tid")
ipnr= Trim(Replace(Request.form("ip"),"'",""))

Set RS = Server.CreateObject("ADODB.Recordset")
set RS=connect.execute("SELECT * From Users  where UserID = " & session1 & ";")

email=rs("email")
navn=rs("Username")

sådan ser min kode ud og jeg får følgende fejlmeddelse:
Syntax error (missing operator) in query expression 'UserID ='.
Jeg kan ikke få øje på fejlen:-(