modpub.vb

单表增删改查

Module modPub
    Public gStrCon As String
    Public DataPath As String
    Public gstrHos As String
    Public gOleCon As OleDb.OleDbConnection
    Public gForm1 As Form1
    Sub main()
        DataPath = Application.StartupPath & "\学生.mdb"
        gForm1 = New Form1
        Application.Run(gForm1)
    End Sub
End Module