深圳综安科目三合格率:vb数据库连接（问题）)

我的sql是用sql身份证登录的，密码为空，但执行下面语句就是无法登录，请高手为我看看哪里出错了，在给用户名和密码找路径的地方好像有问题阿，怎样让密码为空

Option Explicit
Public conn As New ADODB.Connection '连接数据库方式
Public rs As New ADODB.Recordset '数据库结果集
Public strSQL As String

Public Function ConnectToDB() As Boolean '连接数据库函数
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=pubs"
conn.ConnectionTimeout = 10
conn.Open
If conn.State = 1 Then
ConnectToDB = True
Else
ConnectToDB = False
End If

End Function

Public Sub DisConnect() '关闭连接
If conn.State = 1 Then
conn.Close
End If
End Sub

Public Function Login(strUser As String, strPWD As String) As Boolean
strSQL = "select count(*) as cnt from login where userid='" & strUser & "' and pwd='" & strPWD & "'"
Login = False
If ConnectToDB = True Then '执行是否连接
If ExecuteSQL(strSQL) Then '执行sql语句命令
If rs!cnt = 1 Then '执行结果（用户名与密码是否正确）
MsgBox "登录成功"
Login = True
Else
MsgBox "用户名或密码错误!"
End If
End If
Else
MsgBox "连接数据库失败"
End If
End Function

Public Function ExecuteSQL(strSQL As String) As Boolean
On Error Resume Next
Set rs = conn.Execute(strSQL)
If Err.Number <> 0 Then
ExecuteSQL = False
MsgBox "执行SQL语句出错" 'Err.Description
Err.Clear
Else
ExecuteSQL = True
End If
End Function