Tilføje kolonne

Jeg har i nedenstående tilføjet et felt "Forhandler" i tabellen biler. I modsætning til de andre felter, skal man ikke kunne søge på Forhandler. Det skal bare komme sammen med de andre resultater. Sådan som jeg har gjort det virker ikke. Kan nogen hjælpe?

<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>
<center>
<%
' Henter værdien fra search2.htm
strBilmaerke = Trim(Request.Form("Bilmaerke"))
strModel = Trim(Request.Form("Model"))
strAargang = Trim(Request.Form("Aargang"))
strKm = Trim(Request.Form("Km"))
strPris = Trim(Request.Form("Pris"))

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Bilmaerke, Model, Aargang, Km , Pris , Forhandler FROM biler WHERE"
strSQL = strSQL & " (Bilmaerke LIKE '%" & strBilmaerke & "%')"
strSQL = strSQL & " AND (Model LIKE '%" & strModel & "%')"
strSQL = strSQL & " AND (Aargang LIKE '%" & strAargang & "%')"
strSQL = strSQL & " AND (Km BETWEEN " & strKm & ")"
strSQL = strSQL & " AND (Pris BETWEEN " & strPris & ")"

' Skaber DSN forbindelse til DBen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DSN=riishojwebsoftdkdsn"


' 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 "<h4 align=center><font face=Verdana>Her er resultatet af din søgning</font></h4><hr><br>"
    Response.Write "<table border=0>"
   
    Response.Write "<tr bgcolor=blue><th ><font color=white face=verdana size=2>Bilmærke</font></th><th>Model</th><th>Årgang</th><th>Km</th><th>Pris</th><th>Forhandler</th></tr>"
    Do While Not rs.EOF
      Response.Write "<tr bgcolor=red><td><font color=white>" & rs("Bilmaerke") & "</font></td>"
        Response.Write "<td>" & rs("Model") & "</td>"
        Response.Write "<td>" & rs("Aargang") & "</td>"
        Response.Write "<td>" & rs("Km") & "</td>"
        Response.Write "<td>" & rs("Pris") & "</td>"
        Response.Write "<td>" & rs("Forhandler") & "</td></tr>"


        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>