高手请往这边看看，关于VB中连接数据库的问题？谢谢！

Question

为一个登陆框，用户名和密码，然后是提交
代码如下：
Private Sub Command1_Click()
Dim i As Integer
i = 1
If Text1.Text = "" Then
MsgBox "请输入用户名！"
i = 0
Else
If Text2.Text = "" Then
MsgBox "请输入密码！"
i = 0
End If
End IfDim CON As ADODB.Connection
Set CON = New Connection
Dim rs As ADODB.Recordset
Set rs = New Recordset
CON.CommandTimeout = 3
CON.ConnectionString = "driver={sql server};server=SXJ;database=anquanyuan"
CON.Open
Set rs.ActiveConnection = CONrs.Open "select * from log where huming='" & Text1.Text & "' AND mima='" & Text2.Text & "'"If i = 1 Then
If rs.RecordCount > 0 Then
Form7.Show
Unload Me
End If
Else
MsgBox "请先注册！"
End IfEnd Sub
总是连接不上就是查询问题，其中Text1.Text 和Text2.Text为用户名和密码 

Answer 1

CON.ConnectionString = "driver={sql server};server=SXJ;database=anquanyuan"缺少DB用户名和密码

Answer 2

如果不是混合模式至少要加帐号比如本地登陆用户名可以用 LOCALHOST  或 127.0.0.1

Answer 3

在服务器设置的名字是SXJ,就是那个启动SQL服务器的那个名字
听说还可以写成uid=sa;pwd=;
这个也可以吗？
CON.ConnectionString = "driver={sql server};server=SXJ;uid=sa;pwd=;database=anquanyuan"
谢谢你！