怎么循环用SQL语句将表中全部的值读进程序?然后显示在下面的列表框中！

没太看懂...大概可以这样
引用ADO (Microsoft ActiveX Data Object)
然后

dim Rs as new adodb.recordset
ConString="Provider=SQLOLEDB.1;Password=你的密码;Persist Security Info=True;User ID=sa;Initial Catalog=SQL的数据对象;Data Source=你的SQL服务器地址"

sql="SELECT * FROM Table"
Rs.Open sql,ConString,3,3
if Not Rs.RecordCount=0 then
Do While Not Rs.EOF
赋值语句
Rs.MoveNext
LOOP
End if

不必用循环，直接用查询语句：select * from table