Hur gör man för att lägga in data från en databas i en listbox?

Jag har försökt med följande, dock utan resulatat:
<code>
Do Until rs.EOF
lstCategories = lstCategories & " <OPTION value=1>" & rs(0) & "</OPTION>" & vbCrLf
rs.MoveNext
Loop
</code>

Har jag gjort något fel?

ett fel: du sätter value till 1 hela tiden...

Dessutom: var lägger du till <select> taggarna samt skriver ut strängen?

Exempel:
<code>
Do Until rs.EOF
Response.Write "<OPTION>" & rs(0) & "</OPTION>" & vbCrLf
rs.MoveNext
Loop
</code>

Eller:
<code>
Do Until rs.EOF
Response.Write "<OPTION value=""" & rs("Id") & """>" & rs("Name") & "</OPTION>" & vbCrLf
rs.MoveNext
Loop
</code>