modulework.bas

使用VB编写的订单管理系统程序

Attribute VB_Name = "ModuleWork"
 Option Explicit
    Public cnStr As ADODB.Connection
    
Public Sub OffSConnection()
    
    Set cnStr = New ADODB.Connection
    
    cnStr.ConnectionTimeout = 15
    cnStr.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Order.mdb;Persist Security Info=False"
    cnStr.CursorLocation = adUseClient
    
End Sub

Public Sub Main()

    OffSConnection
    frmLogin.Show

End Sub