请教ｖｂ中的数据库高手,"ERROR:类不支持自动化或不支持期望的接口"

[ZHANGWEI15]

请教ｖｂ中的数据库高手：一个关于ｖｂ中数据库动态绑定的难题
我在作一个系统中要用到ｄａｔａ和ｄｂｇｒｉｄ控件，由于数据所在的路径是不确定的，所以需要动态绑定！
我在程序中设置了ｄａｔａ１的ｄａｔａｂａｓｅｎａｍｅ后
设置了ｄｂｇｒｉｄ的ｄａｔａｓｏｕｒｃｅ属性为ｄａｔａ１
可是系统还是提示还是出错
是不是是ｄａｔａ和ｄｂｇｒｉｄ是不能象ａｄｏ那样动态绑定的呢？如果要实现这个功能，具体该怎么作呢？？？？？
我的代码如下：
Private Sub Command1_Click()
Data1.DatabaseName = App.Path & "\ｄｂｎａｍｅ"
Data1.RecordSource = ｔａｂｌｅｎａｍｅ
DBGrid1.DataSource = Data1
End Sub
错误提示：类不支持自动化或不支持期望的接口

[gpo2002]

DataSource 属性 （ActiveX 控件）


返回或设置一个数据源，通过该数据源将一个数据使用者绑定到一个数据库。

语法

object.DataSource [=datasource]

DataSource 属性语法有如下部分：

部分描述

object一个对象表达式，其值为“应用于”列表中的一个对象。

datasource一个限定为数据源的对象索引，包括 ADO Recordset 对象，以及类或定义为数据源的用户控件(DataSourceBehavior 属性 = vbDataSource).

说明

使用 Set 语句设置 DataSource 属性，如下所示：

Set Text1.DataSource = ADODC1

注意 两个旧的控件，Data 控件和 RemoteData 控件，可以用做数据源，然而，您不能在运行时将另一个控件或对象的 DataSource 属性设置为这两个控件之一。例如，下列代码将会失败：

Set Text1.DataSource = Data1 ' 将会失败！您不能在运行时将 DataSource 设置为
' 一个内部 Data 控件。

要将 Data 控件或 RemoteData 控件作为一个数据源使用，您只能在设计时设置绑定控件的 DataSource 属性。