DLL中有Initialize ,Terminate。调用该DLL时先执行Initialize,结束时执行Terminate。
Private Sub Class_Initialize()
  Set Gbl_DB= New ADODB.Connection
End SubPrivate Sub Class_Terminate()
    Gbl_DB.Close
    '释放数据库连接变量实例化
    Set Gbl_DB_InFact = Nothing
End Sub