一个连接数据库的函数，如下所示，总是提示’对象关闭时，不允许操作‘
Public Function ConnDb() As Boolean
    On Error GoTo FunctionEnd
    ConnDb = False
    Set g_dbconn = New ADODB.Connection
    g_dbconn.CursorLocation = adUseClient
    g_dbconn.Open GetDbConnString()     ‘就是这句话无法实现
    ConnDb = True
FunctionEnd:
End Function

这句话没无实现..那你就应该帖GetDbConnString()     的代码出来啊..
你现在贴这个没用.

大哥没看到后面有附件吗？

我一般不看附件..

Dim Cn As New Connection
Dim Rs As New Recordset

Private Sub Command1_Click()
        Cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\aa.mdb"
        Rs.CursorLocation = adUseClient
        Rs.Open "t_test", Cn
        MsgBox Rs.RecordCount
End Sub
自己參考一下

怎麼看不到自己的回復。BUG？

谢谢楼上的建议，我只是想知道我这种方法为什么不能实现，错在哪里？

在你附件里那么多代码中找到你说的那个错误地方还真不容易啊

请教个问题还真难啊，在Module2的第二个函数就是