为什么出这个错误????
我的程序如下:
Option Explicit
Private Const DB_Path = "D:\Program Files\Microsoft Visual Studio\VB98\database\db1.MDB"
Private db1 As Data
Private Sub Form_Load()
On Error GoTo LoadError
Set db1 = DBEngine.Workspaces(0).OpenDatabase(DB_Path)
On Error GoTo 0
Exit Sub
LoadError:
MsgBox Err.Description, vbExclamation
Unload Me
Exit Sub
End Sub
编译的时候却提示“变量没有定义”,请教各位大侠是怎么回事呢??