现在还有人在线吗?请帮忙解决个问题...

Question

With Adodc1
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
    & "E:\bluemoon\codefactory.mdb" _
    & ";Persist Security Info=False"
    .RecordSource = "select * from LabInfo"
End With
With Adodc1
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
    & "c:\temp\codefactory.mdb" _
    & ";Persist Security Info=False"
    .CommandType = adCmdText
    .RecordSource = "Select * from LabInfo"
    .UserName = "Admin"
    .Refresh
    While Not .Recordset.EOF
    List1.AddItem .Recordset!MyFieldName
    .Recordset.MoveNext
Wend
给分吧

Answer 1

with Adodc1.Recordset
    .MoveFirst
    do while not .EOF
        listbox1.additem .Fields("theField").value
        .MoveNext
    loop
end with