救命啊，一个连接access数据库的问题
我写了一段程序，在主窗体启动时，数据控件DATA连接到access数据库中的一个数据表，这个数据表是动态的以年份命名的，如果有表，当然能连接成功，如果没有表，则提示用户建立数据表，但写完以后老是提示出错，各位大侠救命呀。
Private Sub Form_Load()
On Error GoTo err100
Data1.DatabaseName = App.Path + "\data\ItemMasterData.mdb" '为数据空间绑定数据库
Data1.RecordSource = Year(Date) '指定名为年份的数据表
Data1.RecordsetType = 0
frmmainload.FrmmainSbar '调用窗体启动模块，初始化主窗体各项数据
Msfgcl '调用过程，初始化表格底色和列宽度
HookWheel Me.hwnd
Exit Sub
err100:
frmDataCellC.Show vbModal '如没有本年度数据表，则提醒用户建立新表
End Sub
就是以上代码，出错后不出现提醒用户建表的窗体，老是“找不到对象，请确定对象是否存在，并正确写出他的名称和路径”
各位大侠帮帮忙吧，在线等。
[解决办法]
Dim DB As DAO.Database
Set DB = DBengine.Workspaces(0).OpenDatabase(App.Path + "\data\ItemMasterData.mdb"
If ExistsTableQuery(Year(Date)) = False Then '判断数据库中有没有表
'没有表
else
'有表
End If
Private Function ExistsTableQuery(TName As String) As Boolean
Dim Test As String
On Error Resume Next
' 数据库表集合中是否存在要查询的表的名称
Test = DB.TableDefs(TName).Name
If Err <> NameNotInCollection Then
ExistsTableQuery = True
' 重置error变量
Err = 0
End If
End Function
