main.bas

这是我自己编写的关于创建和修改自己定义的数据库

Attribute VB_Name = "Module1"
Option Explicit

Sub main()
If App.PrevInstance Then
        MsgBox "WFK-03检验记录表已经运行，不能再次装载!", vbExclamation, "错误"
        End
    End If
    Form1.Show

End Sub