VB连接数据库时出现"实时错误442",请问如何解决?

Question

'连接数据库
Private Sub Connect()
  '如果连接标记为真，则返回。否则会出错
  If IsConnect = True Then
    Exit Sub
  End If
  
  '关键New用于创建新对象cnn
  Set cnn = New ADODB.Connection
  '设置连接字符串ConnectionString属性
  cnn.ConnectionString = conn
  '打开到数据库的连接
  cnn.Open Add.Path & "/data.mdb"——————错误指向在这里
  '判断连接的状态
  If cnn.State <> adStateOpen Then
    '如果连接不成功，则显示提示信息，退出程序
    MsgBox "数据库连接失败"
    End
  End If
  
  '设置连接标记，表示已经连接到数据库
  IsConnect = True
End Sub
我的数据库文件和VB程序文件在相同的文件夹里

Answer 1

App.Path
选项中的 Editor\Require Variable Declaration 选上，代码前面要保证有 Option Explicit 语句。