Min select box får ikke noget indhold, hvad gør jeg forkert?

Hej er der nogen der kan hjælpe mig med dette?

<select name="FarveSelect">
                           
<% ' Databaseforbindelse 1
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/F1A2U3E4R5H6O7L8M/db/FFdatabase.mdb")
Conn.Open DSN

varSort = Request.Form("SortSelect")

strSort = "SELECT * FROM FFtabel WHERE SortID=" & varSort & ""
Set rs = Conn.Execute(strSort)
Do While Not rs.EOF

strFarveID = "" & rs("FarveID") & ""

' Databaseforbindelse 2
Set ConnFF = Server.CreateObject("ADODB.Connection")
ConnFF.Open DSN

strFarve = "SELECT * FROM FarveTabel where hexaID = " & strFarveID & ""
Set rsFF = ConnFF.Execute(strFarve)
Do  While Not rsFF.EOF

strVisFarve = "<option value=" & "rs('" & strFarve & "')" & ">" & "rs('" & strFarve & "')" & "</option>"

Response.Write strVisFarve

rs.MoveNext
Loop

rsFF.MoveNext
Loop

Conn.Close
Set Conn = Nothing

ConnFF.Close
Set ConnFF = Nothing
%>
</select>

Mvh fauer