TDBGrid控件怎样动态绑定Ado.RecordSet? ( 积分: 10 )

我想在程序中将TDBGrid控件动态绑定Ado.RecordSet数据集, 但是总是不成功, 请高手指点:
var
RecordSet: OleVariant;
...
RecordSet:=CreateOleObject('Adodb.RecordSet');
DBGrid1.DataSource:=RecordSet; //提示: Incompatible types: 'TDataSource' and 'OleVariant'
DBGrid1.DataSource:=RecordSet as TDataSource; //提示: Undeclared identifier: 'TDataSource'

我想在程序中将TDBGrid控件动态绑定Ado.RecordSet数据集, 但是总是不成功, 请高手指点:
var
RecordSet: OleVariant;
...
RecordSet:=CreateOleObject('Adodb.RecordSet');
DBGrid1.DataSource:=RecordSet; //提示: Incompatible types: 'TDataSource' and 'OleVariant'
DBGrid1.DataSource:=RecordSet as TDataSource; //提示: Undeclared identifier: 'TDataSource'

你可以将以下两属性分别定义：
var GridDS :TDataSource;
GridQuery:TDataSet; //可以是TADOQuery;
然后:

DBGrid1.DataSource:=GridDS; //TDataSource
DBGrid1.DataSource.DataSet:=GridQuery; //TDataSet

祝你成功!

谢谢Mkschen. 不知道按照我说的动态创建adodb.recordset的方法能行吗?