ＶＢ连接ＡＣＣＥＳＳ数据库问题！！１００分！！

Question

我在模块里写了一个函数用于ＶＢ连接ＡＣＣＥＳＳ数据库的初始化，可不可以把ＣＯＮ（连接）和ＲＳ（数据集）都定义为ＰＵＢＬＩＣ的写到模块里，然后我在其他窗体里直接调用就可以了？？？
请大家帮忙，有没有完整的例子给一个我看看谢谢

Answer 1

我比较慷慨，呵呵还要个完整的例子啊，那我为什么在初始化以后，在一个新窗体里，直接调用con,告诉我object required而且直接打ＣＯＮ在加上"."，没有任何提示

Answer 2

'窗体中的代码
Option Explicit
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
    Dim strSQL As String
    strSQL = "select * from TabName"
    rs.Open strSQL, cn, adOpenStatic, adLockReadOnly, adCmdText
    If rs.RecordCount > 0 Then
        MsgBox "test1"
    End If
    rs.Close
    Set rs = Nothing
End Sub
'模块　
Option Explicit
Public cn As New ADODB.ConnectionPublic Sub GetCn()
    Dim iConcstr As String
    iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False;Jet OLEDB:DataBase Password='123456789987654321'"
    cn.Open iConcstr
End Sub
------------
www.vicmiao.com
努力就有美好时光！