module1.bas

这是我们公司的题库管理系统

Attribute VB_Name = "Module1"
Public ThisDBName As String         '用于保存当前试题数据库名称

Public Sub ShowError(ByVal msg As String)
    MsgBox msg, vbCritical + vbOKOnly, "题库管理系统"
End Sub