VB里怎么用全局变量来代替adodc

这是我一直用的三个操作数据库的函数 希望对你有用
Public Function connectstr() As String
strsql= App.Path & "\用户.mdb"
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strsql & ""
End Function
'******************数据库的路径，返回数据库路径的字符串

Public Function runselect(ByVal sqlm As String) As ADODB.Recordset '返回记录集
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
On Error GoTo run_error
Set cn = New ADODB.Connection
cn.Open connectstr()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open Trim(sqlm), cn, adOpenDynamic
Set runselect = rs
Set rs = Nothing
Set cn = Nothing
End Function

‘************************执行查询操作
Public Function runsql(ByVal sql As String)
On Error GoTo run_error
Dim cn As ADODB.Connection
On Error GoTo sql_err
Set cn = New ADODB.Connection