换用datalist
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\bj-drive\My Documents\c.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 表1"
Adodc1.Refresh
Set DataList1.RowSource = Adodc1
DataList1.BoundColumn = "rq"
DataList1.ListField = "rq"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024