Also bei mir hat folgendes funktioniert:
<%
str_Connection_Ziel = DeineDSN
'Verbindung herstellen
SET objConn = Server.CreateObject("ADODB.Connection")
objConn.Open str_Connection_Ziel
str_FieldSQL = "SELECT TOP 1 * FROM DeineTabelle"
'RecordSet erzeugen
Set RS = objConn.Execute(str_FieldSQL)
str_Spalten = "<select name=""Spalten"" size=""8"" multiple>" & vbCrLF
FOR i = 0 TO (RS.Fields.Count -1)
str_ZielSpalten = str_Spalten & "<option value=""" & RS(i).Name & """>" & RS(i).Name & "</option>" & vbCrLf
NEXT
str_Spalten = str_Spalten & "</select>" & vbCrLF
'Alles schließen
RS.Close
objConn.Close
%>
Hoffe es funktioniert,
Tobi