如何把对数据库access的连接放到模块中（ado）？

Question

如何把对数据库access的连接放到模块中（ado）？ 
也就是说，我在模块中别入这个连接后，无论我以后使用如个窗体，数据库都是打开的，不用再调了，就像asp中的odbc连接那样！

Answer 1

Public CNT As ADODB.Connection
Public Function F_connect()
 Set CNT = New ADODB.Connection 
CNT.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\db.mdb" & ";Persist Security Info=False"
CNT.open
end function
第一次调用f_connect即可

Answer 2

Option Explicit
Public MdbConn As New ADODB.Connection'功能简介：建立本地数据库公共链接
'参数一：MDB数据库地址路径
'返回值："ok"--成功
Function PulbicMdbConn(ByVal StrPath As String) As String
    On Error GoTo MdbConnErr
    Dim StrSql As String
    StrSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & ";Persist Security Info=False"
    If MdbConn.State <> 0 Then MdbConn.Close
    MdbConn.Open StrSql
    PulbicMdbConn = "ok"
    Exit Function
MdbConnErr:
    PulbicMdbConn = Err.Description
    If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function'功能简介：关闭本地数据库公共链接
Function PublicMdbClose()
    If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function

Answer 3

form_load中
Dim rs As ADODB.Recordset
f_connect
Set rs = New ADODB.Recordset
   rs.CursorLocation = adUseClient
   sql="select * from table"
   rs.open SQL, CNT, adOpenKeyset, adLockPessimistic

Answer 4

在主程序中申明一个全局的变量
Public g_condb as new  ADODB.Connection
在程序结束时关闭，所有的调用全部使用同一个连接