variant do es not reference an automation object問題 (100分)

我做的com+組件,在AP層上定義如下
function Tzhqd.GetData(const FSql: WideString): OleVariant;
begin
with qryServerdo
begin
close;
sql.Clear ;
sql.Add(FSql);
Prepare;
ExecSql;
end;
result := qpServer.Data ;
end;
qpServer.Data為DataSetProvider
在client 上調用
dsMain.Data := Dcon.AppServer.GetData('select count(*) from bsh_file');
總出現錯誤提示
variantdo
es not reference an automation object
都快煩死我了,各位高手幫幫忙,100相送,謝謝

应该用Open

ting