如何把数据库中符合条件的记录additem到listbox里我现在懵了请说吧

[lixingyuaaa]

Dim PRO As String
Dim sqlsTr As String
Dim XingMing As String
PRO = "Provider=SQLOLEDB.1;Password=760619;Persist Security Info=True;User ID=sa;Initial Catalog=webofficeSQL;Data Source=210.46.97.77"
varConn.CursorLocation = adUseClient
varConn.Mode = adModeUnknown
varConn.Open PRO
varRS.LockType = adLockBatchOptimistic
varRS.CursorType = adOpenKeyset
Set varRS.ActiveConnection = varConn
sqlsTr = "select * from dbo.jiaoxue_zongjie where 授课年级='2000'"
varRS.Open sqlsTr
'从这里往下如何来写呢
'如何把数据库中符合条件的记录additem到listbox里我现在懵了请说吧??????????????????????????????
For I = 0 To varRS.Fields.Count
'关键是这一条

List1.AddItem varRS.Fields(6).Item


'Next I
'谢谢

[bu_wen]

不要用count
用 eof 和 判断..
可以这么写
do while not varRS.eof
list1.additem varRS.Fields!字段名
varRS.MoveNext
loop

[Ouyangyifeiczy]

while not varRS.eof
list1.additem varRS.Fields!字段名
list1.itemdata(list1.newindex)=varrs.fields('需要与该字段关联的ID')
varRS.MoveNext
wend
varrs.close
set varrs=nothing