Hvordan gør jeg denne login validering bedre?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/data.mdb")
Conn.Open DSN

strSQL = "Select * From tbl_Adresser Where strBruger='" & request.form("textname") & "'"
Set rs = Conn.Execute(strSQL)

if NOT rs.EOF Then
  if request.form("textname") = rs("strBruger") AND request.form("textpassword") = rs("strPassword") Then
    if rs("strLevel") = 1 then
    session("login") = "JA"
    Session("strBruger") = rs("strBruger")
    Session("strUserid") = rs("Id")
    response.redirect "admin.asp"
    elseif rs("strLevel") = 0 then
    session("login") = "JA"
    Session("strBruger") = rs("strBruger")
    Session("strUserid") = rs("Id")
    response.redirect "booking.asp"
    end if 
  else
    session("login") = "NEJ"
    response.redirect "loginform.asp" 
  end if
Else
    session("login") = "NEJ"
    response.redirect "loginform.asp" 
End if
'Luk database
Conn.Close
Set Conn = Nothing
%>

Jeg er sikker på at min login validering kan gøres bedre, men hvordan?
:>Gizom