RS problem

Kan någon hjälpa mig och se vad jag har missat får inte den här funktionen att fungera....

<%
'*****************************************************************************
'Funktionen get_sokval för dropplisten

   function Get_sokval(strType)
       dim strSQL,strHTML
       strType=Trim(strType)

       strHTML="<SELECT Name=sok onChange=" & chr(34) & "Post()" & chr(34) & ">"
       strSQL = "SELECT distinct " & strType & " "

       set Conn=Server.CreateObject("ADODB.Connection")
       Set RS=Server.CreateObject("ADODB.Recordset")
       Conn.Open "DSN=scannat;UID=;PWD="
       RS.Open strSQL,Conn,1,2

      strHTML=strHTML & "<OPTION>"
      DO WHILE NOT RS.EOF
    [b] strHTML=strHTML & "<OPTION VALUE=" & chr(34) & RS(Namn) & chr(34) & ">" & RS(Namn)[/b]
      RS.MoveNext
      LOOP
      RS.Close()
      strHTML=strHTML & "</SELECT>"
      Get_sokval=strHTML
end function
'*****************************************************************************
%>

Jag får felmeddelandet

Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/Rma_admin/Left.asp, line 28

kolumnen namn finns med i Vyn ???????