VB的ADO连接SQL数据库的程序修改。

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close

里面的用户名是不是VB主窗体登录的用户名吗？怎么把用户名改成空的，我的用户名和密码都是空的！还有其他注意的请说下，谢谢！

vb 用ado连接sql数据库。。。。 vb ado连接数据库 delphi中用ado连接sql数据库的问题？ 关于VB连接SQL数据库的问题 SQL数据库实例,与VB 连接的 vb以ADO无源连接方式不能连接SQL SERVER 2000数据库？ ado连接access数据库的问题 ADO连接ACCESS数据库的问题 vc ADO 连接SQL SERVER数据库 vb连接SQL数据库