VB中 Microsoft jet引擎 找不到对象

该改的属性都改了，连".mdb"文件也转换成97版本的了！！！但还是Access与vb就是连不上老跳出上述问题！！！本人用的是data数据控件。代码如下：
Private Sub Form_Load()
Dim mpath As String
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
Data1.DatabaseName = mpath + "db2.mdb"
Data1.RecordsetType = 0
Data1.RecordSource = "基本情况"
Data1.Refresh
End Sub
可是就是找不到表"基本情况"

把代码修成：
If Right(mpath, 1) <> "\" Then mpath = mpath & "\"
Data1.DatabaseName = mpath & "db2.mdb"
即将“+”号修改成“&”字符串连接符号

用ado不太好。你去查查用代码吧。放弃用控件吧！jet引擎没寻找到这个问题好象是ado引擎不能识别2000格式的数据库，你试试在access里把数据库转成97格式的再试下。