关于dodc数据库查询问题

Question

'我知道你做密码验证，建议使用这样的方法
Dim strSql As String
Dim conTest As New ADODB.Connection
'建议一个项目做一个连接，放到公共模块里
Dim recTest As New ADODB.Recordset
conTest.CursorLocation = adUseClient
conTest.Open "连接的字符串，可以自己写，可以从控件拷贝"
strSql = "select * from  tb_login where name='...' and password='.....'"
recTest.Open strSql, conTest, adOpenDynamic, adLockBatchOptimistic
If (recTest.RecordCount < 1) Then
    MsgBox ""
Else
    '进入主程序
End If