vb+sql的登陆代码问题~~~急！！！！！

Public conn As ADODB.Connection 
Sub main() 
Set conn = New ADODB.Connection 
conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=ss" 
conn.Open 
登陆首页.Show '登录界面 
End Sub 

再在登录界面“确定”下写入如下代码： 
Private Sub Command1_Click() 
If Text1.Text = "" Then 
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示" 
Text1.SetFocus 
Exit Sub 
End If 
If Text2.Text = "" Then 
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示" 
Text2.SetFocus 
Exit Sub 
End If 

Dim strSQl As String 
strSQl = "select * from 用户表 where 用户名='" & Trim$(Text1.Text) & "' and 密码='" & Trim$(Text2.Text) & "' " 

Dim str As New ADODB.Recordset 
Set str = New ADODB.Recordset 
str.CursorLocation = adUseClient 
str.Open strSQl, conn, adOpenStatic, adLockReadOnly 

With str 
If .State = adStateOpen Then .Close 
.Open strSQl 
If .EOF Then 
Try_times = Try_times + 1 
If Try_times >= 3 Then 
MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告" 
Unload Me 
Else 
MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告" 
Text1.SetFocus 
Text1.Text = "" 
Text2.Text = "" 
End If 
Else 

Unload Me 

中页.Show '登录进入的另一个界面 

End If 
End With 

End Sub 

总会出现 实时错误3709 连接无法执行或者上下文关闭 
提示是str.Open strSQl, conn, adOpenStatic, adLockReadOnly 这段错误 --------------------编程问答-------------------- 可能 MSDASQL.1 这个服务器名错 --------------------编程问答-------------------- 你用SQL？表名和字段名用中文？
SQL毕竟不是中国的，用中文可能会出问题 --------------------编程问答-------------------- 好像没有数据库吧 --------------------编程问答-------------------- 连接字符串没写完整,连接字符串参考:
http://www.connectionstrings.com/sql-server

补充：VB ,  数据库(包含打印，安装，报表)