这是我写的用DATALIST控件显示数据表中一条字段的代码，可运行时却没有反应，请教该在哪里修改一下
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from 部门信息 ", dbconn, 1, 1
Set DataList1.DataSource = rs
DataList1.ListField = "dename"

这个当然有错了。
Set DataList1.DataSource=它对应的ADO控件名。如果是用控件的形式就可以。你是用引用的方法做的。
再说你没有连接数据库。