急，MIDAS中间层返回记录集。(100分)

请问各位高手，我想通过MIDAS的客户端调用中间层的接口函数来返回记录集
，中间层和客户端的代码怎么写呢？

先设置好DataSetProvider1的DataSet属性连上AdoDataSet1;
设置好AdoDataSet1的CommandText和Conection属性。
添加如下接口方法：
function TfoUser.GetUserData:OleVariant;
Var tt:Integer;
begin
try
Result:=DataSetProvider1.GetRecords(10,tt,ResetOption);
setcomplate;
except
setabort;
end;
end;

多人接受答案了。