基于VB6.0学生管理系统设计 Public UserName As String Sub Main() Dim newlogin As New Login '声明 newlogin.Show 1 If Not newlogin.Okf Then End End If Unload newlogin Set newMain = New MainForm '创建对象 newMain.Show End Sub Public Function ConnectStr() As String '自定义连接函数 Dim