asp下拉列表框 怎么读取数据库中的数据

<SELECT name=select1 size=1 style="width:300px">
<%
sqltext="select * from depart"
Set rs1 = Server.CreateObject("ADODB.RecordSet")
DnsText = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:newdb2.mdb" '"UID=;PWD=;DSN=1"
Rs1.Open SqlText, DnsText,3,1
Do While Not rs1.Eof
k=rs1.fields(i)
%>
<option value="<%=k%>"><%=k%>
<%
rs1.MoveNext
Loop
%>
</select>

http://www.xieguang133.com/