新建一个窗体form1，窗体上放置一个DBGrid（连datasource）,一个datasource（连clientdataset）,一个clientdataset(无属性设置)。新建一个Datamodul,放置2个adoquery(接doconnection),一个adoconnection（连数据库）,一个datasetprorider（接adoquery2）
在form1的ONActivate代码如下---目的是想显示表sstable的内容
procedure TForm1.FormActivate(Sender: TObject);
var
sql1:string;
begin
// sstable:=Tsstable.creata;
sql1:='select * from sstable';
clientdataset1.Data:=sstable.GetRec(sql1);
end;
..................
Tsstable是个自定义类，封装了对表sstable的所有操作
...................................
function Tsstable.GetRec(sql1:string):string;
begin
DataModfrm.ADOQuery2.Close;
DataModfrm.ADOQuery2.SQL.Clear;
DataModfrm.ADOQuery2.SQL.Add(sql1);
DataModfrm.ADOQuery2.Open;
result:=datamodfrm.DataSetProvider1.Data;
end;

运行时出错，我认为应该是：clientdataset1.Data:=sstable.GetRec(sql1);和result:=datamodfrm.DataSetProvider1.Data;有问题
高手帮看看吧！先谢谢了

问题解决
function Tsstable.GetRec(sql1:string):string;应该是function Tsstable.GetRec(sql1:string):olevariant