引用 ADODB 控件
'之后:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
strSQL ="DRIVER=SQL Server;SERVER=127.0.0.1;UID=sa;PWD=123;DATABASE=man"
cn.Open strSQL
'--打开数据库联接----
strSQL ="Select User,Pass From Tou"
rs.Open strsql,cn
While rs.EOF = False
'--输出记录----------
print rs![user]
print rs![pass]
rs.MoveNext
wend
上面的回答就行啊。