将给头一位调试成功者,100分

Question

不需要这么麻烦,只要象下面一样就可以了,当然你必须先建好adodc1的conntion和recordset的属性.    List1.DataField = "m_name"
    Set List1.DataSource = Adodc1    For i = 0 To Adodc1.Recordset.Fields.Count - 1
        List1.AddItem Adodc1.Recordset.Fields(i).Name
    Next i

Answer 1

dim rs as adodc1.recordset
list1.datasource=adodc1--------------不需要吧
for i=0 to adodc1.fields.count-1
  list1.additem rs("M_name").value
next i
================================================================ok?