EXE调用mdb实例VB源码

这是江羽《人事管理软件》中用以启动rsgl-L.mdb的EXE应用程序源码，现在帖出来与大家共同分享，源码如下：

''''============================
''''定义公用模块：
''''============================
Declare Function ShellExecute Lib "shell32.dll" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long

Public Function TransactSQL(ByVal sql As String) As adodb.Recordset
Dim con As adodb.Connection
Dim rs As adodb.Recordset
Dim strConnection As String