søge funktion's hjælp

Hvem kan hjælpe mig, i min søgefunktion skal man ikke kunne søge på en person hvis feltet synlig ikke er vinget til i databsen

search.asp

<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>
<br><br>
<center>
<%
' Henter værdien fra soeg.asp
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("default.asp?emne=start")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, navn, postnr, city, lp FROM tblBrugerInfo WHERE "
strSQL = strSQL & " (navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (postnr LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (city LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (lp LIKE '%" & strKeyword & "%')"

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/brugerinfo.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
        Response.Write "<table border=0 cellspacing='2' cellpadding='2'>"
      Do While Not rs.EOF
      Response.Write "<tr><td><a href=""default.asp?emne=dpinfo&id=" & rs("id") & """>" & rs("navn") & "</a></td>"
      Response.Write "<td>" & rs("postnr") & "</td>"
      Response.Write "<td>" & rs("city") & "</td>"
      Response.Write "<td>" & rs("lp") & "</td>"
      Response.Write "<td>" & ("Ledig Plads")& "</td>"
        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
</center>
</body></html>