module1.bas

上传的文件是针对小区物业管理的程序

Attribute VB_Name = "Module1"
Public g_Adoconn As New ADODB.Connection
Public Sub main()
    g_Adoconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ss\test.mdb;Persist Security Info=False"
    g_Adoconn.CursorLocation = adUseClient
    g_Adoconn.Open
    MDIFrmmain.Show
End Sub