module1.bas

公文管理系统》是一套通过行文收发

Attribute VB_Name = "Module1"
Option Explicit

Public pIP As String
Public pConn As String
Sub main()
    pConn = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=OA.mdb;"
    frmLogin.Show vbModal
    If frmLogin.LoginSucceeded Then
        frmMain.Show
    Else
        Unload frmLogin
        End
    End If
End Sub