VB 运行时提示“用户sa登录失败 ，对象refresh的方法iadodc失败”，高手看看哪里错了？急！

Function cnn() As ADODB.Connection
Set cnn = New ADODB.Connection
'cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=db_library"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_library.mdb;Persist Security Info=False"
End Function
连接时，和ACCESS连接就可以运行通过，用SQL SERVER连接，就提示“用户sa登录失败 ，对象refresh的方法iadodc失败”

Private Sub labLogin_Click()
If Combo.Text = "Administrator" And txtPassword.Text = "ljm2004" Then
frmmain.Show
frmmain.StatusBar1.Panels(2).Text = "当前系统用户： Administrator"
Unload Me
Else
Adodc1.RecordSource = "select * from usertb where 名称='" + Trim(Combo) + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
If Trim(txtPassword) = Adodc1.Recordset.Fields("密码").Value Then
frmmain.Show
frmmain.StatusBar1.Panels(2).Text = "当前系统用户：" & Adodc1.Recordset.Fields("名称").Value
Unload Me
Else
MsgBox "密码不正确！", vbExclamation + vbOKOnly
End If
Else
MsgBox "无此用户或者密码不正确！", vbExclamation
End If
End If
End Sub

用户sa登录失败
那就是你SQL登陆连接时，帐号密码不正确，SQL服务器拒绝了你的数据库连接...

你好！ Adodc1.RecordSource = "select * from usertb where 名称='" + Trim(Combo) + "'"         Adodc1.Refresh '这句怎么看都不对，Combo是控件的话，应该写成Combo.text，我的习惯字符连接一向用&不用+号，还有下面的txtPassword应该也要加上.text 仅代表个人观点，不喜勿喷，谢谢。