Hent data fra database ved indtastning i form

Hej
Jeg vil kunne indtaste i en formular og derefter trække oplysninger fra en database, men jeg får ikke udført men forespørgsel. Ændre jeg fornavn i SQL sætningen til Id og skriver postene Id kører sætningen, men ikke med fornavn ?
<%
    dim conn
   
    Set Conn =server.createobject(\"ADODB.Connection\")
    dsn =\"driver={microsoft access driver (*.mdb)}; DBQ=\" & \"D:/Dokumenter/Access/HTML/tutorial.mdb\"
    conn.open dsn
        strSQL =\"SELECT personer.* FROM personer Where fornavn=  & request.form(\"brugernavn\")
   
   
    Set rs = Conn.Execute(strSQL)
   
    do
    Response.write \"<dt>Navn:</dt><dd>\" &rs (\"fornavn\") & \" \" & rs (\"Efternavn\")&\"</dd>\"
    Response.write \"<dt>Telefon:</dt><dd>\" &rs (\"telefon\") &\"</dd>\"
    Response.write \"<dt>Fødselsdato::</dt><dd>\" & FormatDateTime(rs(\"Foedselsdato\"), vbLongDate) & \"</dd>\"
    rs.MoveNext
       
        Loop While Not rs.EOF

   
%>
MVH  per