mdlmain.bas

企业资产管理信息系统

Attribute VB_Name = "MdlMain"
Public constr As String '数据库联结字符串


Public Sub Main()
constr = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\database\资产管理系统97.mdb;"  '设定数据库
frmMain.Show '启动


End Sub