给看看错误在那

Question

Private Sub cmdSumit_Click()
    
    '数据验证
    Dim tempsql As String
    'Set dbRecord = New ADODB.Recordset
    
    '不同用户不同权限
    tempsql = "select 密码 from 用户表 where 用户名='" & cobUser.Text & "'"
    
    dbRecord.Open tempsql, dbConn, adOpenStatic, adLockReadOnly  ---------------->“对象变量或with块变量未设置”   错误
    
    If Not dbRecord.BOF Then
        If dbRecord(0).Value = txtPassword.Text Then
            dbRecord.Close
            Unload frmLoad
            frmMain.Show
        Else
            MsgBox "密码输入错误！"
            txtPassword.SetFocus
            dbRecord.Close
        End If
    End If
End Sub我数据连接写了个类
Public dbConn As ADODB.Connection
Public dbRecord As ADODB.Recordset Sub main()
    Set dbConn = New ADODB.Connection
    Set dbRecord = New ADODB.Recordset
        dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\data\HTmanger.mdb;Persist Security Info=False"
    frmLoad.Show 1
 End Sub

Answer 1

好像没什么问题,能运行的啊!注意
1.你写的那段程序不是类,是通用模块,并且要作为启动模块.
2.要加载一下数据环境,否则找不到ADODB对象.

Answer 2

还有一个可能的问题是,你的数据库文件名有点特别,会不会你创建的文件是 HTmanager.mdb 呢...

Answer 3

main()应该是Module，如果是Class，肯定会出问题。

Answer 4

    'Set dbRecord = New ADODB.Recordset
好象被你自己注释掉了，[align=center]==== 思想重于技巧 ====
[/align]

Answer 5

由于您有部分未结贴，所以特此介绍一下结贴的方法如果您问题已经得解决，请您及时结帖给分，以感谢帮助您的朋友。 结帖方法：点击版面右上方或右下方 [管理] ，进入页面后就可以输入密码,分别给分，结帖。 
 或参考：
http://www.csdn.net/help/over.asp
http://topic.csdn.net/u/20080110/19/7cb462f1-cac6-4c28-848e-0a879f4fd642.html
=============================================================================
问题解决，请及时结贴。  
 正确结贴方法：    
 管理帖子-->给分-->输入密码-->结贴[align=center]==== 思想重于技巧 ====
[/align]