VB 实时错误429 跪求高手解决

这是出错代码 Set db = OpenDatabase(App.Path & "\游戏菜单.mdb")

部分代码：
Private Sub Form_Load()
i = 0: j = 0: k = 0: s = 0: t = 1: rs = 1
Set db = OpenDatabase(App.Path & "\游戏菜单.mdb")
Set rsData = db.OpenRecordset("休闲游戏")
Set lData = db.OpenRecordset("快速启动")
Call xianshi
'''''''''''''''''''''''''''
pl = Picture1.Left
ptp = Picture2.Left - Picture1.Left
xin1 = LoadCursorFromFile(App.Path & "\指针.ani")
jiu1 = SetClassLong(hwnd, -12, xin1)
jiu2 = SetClassLong(Picture1.hwnd, -12, xin1)
jiu3 = SetClassLong(Picture2.hwnd, -12, xin1)
jiu4 = SetClassLong(Picture3.hwnd, -12, xin1)
jiu5 = SetClassLong(ListView1.hwnd, -12, xin1)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim hTaskBar As Long
hTaskBar = FindWindow("Shell_TrayWnd", vbNullString)
Debug.Print hTaskBar
Dim RC As RECT
Dim a As Long
a = GetWindowRect(hTaskBar, RC)
Dim taskheight As Long
taskheight = RC.Bottom - RC.Top '任务栏高度
a = GetWindowRect(GetDesktopWindow, RC)
Dim maxwidth As Long
Dim maxheight As Long
maxwidth = RC.Right - RC.Left '获取屏幕宽度
maxheight = RC.Bottom - RC.Top - taskheight '屏幕高度-任务栏高度
LockWindow Me.hwnd, , , maxwidth, maxheight
End Sub
Public Function IconToPicture(ByVal hIcon As Long) As StdPicture
If hIcon = 0 Then Exit Function
Dim oNewPic As Picture
Dim tPicConv As PictDesc
Dim IGuid As Guid
With tPicConv
.cbSizeofStruct = Len(tPicConv)
.PicType = vbPicTypeIcon
.hImage = hIcon
End With
With IGuid
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
OleCreatePictureIndirect tPicConv, IGuid, True, oNewPic
Set IconToPicture = oNewPic

429 ActiveX 部件不能创建对象
具体找找原因。是未引用ADO呢？还是其他。