module1.vb

大学生记帐管理系统

Module Module1
    Public MyCnn As ADODB.Connection
    Public MyRs As ADODB.Recordset
    Public MyRs1 As ADODB.Recordset
    Public strCnn As String
    Public RecNo As Integer
    Public User权限 As String
    Public UserId As String
    Public usn As String
    Public MDate As String
    Sub main()
        Dim log As login = New login
        log.ShowDialog()
    End Sub
End Module