module1.bas

人力资源管理系统

Attribute VB_Name = "Module1"
Public ADOcn As New Connection
Sub Main()
    Dim strSQL As String
    strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Persist Security Info=False"
    ADOcn.Open strSQL
    Month
    DutySet
    All = False
    frmLogin.Show
 
End Sub