workseal.bas

本文档是基于UML的客户订购管理系统的设计

Attribute VB_Name = "WorkSeal"
    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