module1.bas

一个数据库应用程序

Attribute VB_Name = "Module1"
Private Sub shell()


If path <> "" Then
Call shell(path, 1)
strsql = ""
path = ""
Else
MsgBox "对应的程序不存在!", vbCritical, "错误!"
strsql = ""
path = "'"
Exit Sub
End If