module1.bas

Visual Basic 6.0+ Access2000设计制作图书管理系统

Attribute VB_Name = "Module1"
'Public fMainForm As MIDForm1
Public UserName As String
Sub Main()
'ConnString = "Driver=Microsoft Access Driver(*.mdb);DBQ=" & App.Path & "\db1.mdb"

login_frm.Show vbModal
If login_frm.LoginSucceeded Then
  MIDForm1.Show
  Unload login_frm
Else
  MsgBox "无权登录本系统", , "登录"
  End
End If
End Sub

'创建字符串连接函数