请教：ADP动态连接SQLSERVER的问题

上次问了ADP+SQLServer的问题，这次动手去做了。

我想在用户登录窗口，即验证使用用户，又连接数据库，但是验证使用用户这块出错了，数据库是连接上了，能看到表。

代码如下，和大家一起学习探讨，当然有前辈能指点一二是最好了。

说明：SQLSERVER数据库名testsql,用户sa,密码x。用户表为users，登陆名logon_user，密码longon_pwd。

现象：数当前用户记录的消息没有弹出，弹出密码为空。弹出用户密码错误。

猜想：是不是在做用户验证的时候sqlserver数据库还没有连上去，所以查询不了记录？

Private Sub btn_logon_Click()
 On Error GoTo logon_err
 On Error Resume Next
 Dim lpwd As String
    If IsNull(Me.logon_user) Or IsNull(Me.logon_pwd) Then
        MsgBox "输入不完整!"
        Exit Sub
    Else
   
    '连接数据库
    Application.CodeProject.OpenConnection _
    "PROVIDER=SQLOLEDB.1;PASSWORD=x;USER ID=sa;INITIAL CATALOG=testsql;DATA SOURCE=192.168.0.100"  '连至指定数据库
       
        '验证用户密码
          lpwd = DLookup("[logon_pwd]", "users", "[logon_user]='" & Me.logon_user & "'")
          MsgBox DCount("*", "users", "[logon_user]='" & Me.logon_user & "'")
          MsgBox lpwd
          If lpwd = Me.logon_pwd Then
          MsgBox "登录成功!"
          Exit Sub
          Else
          MsgBox "用户密码错误"
     
          End If
       Exit Sub
    End If

logon_err:
    MsgBox "登录失败"

End Sub