谁知道下面的代码错在哪里

procedure TMapForm.DelphiDSClick(Sender: TObject);
var
SourceData: OLEVariant;
ds: MapXLib_TLB.Dataset;
begin
TVarData(SourceData).vType := varByRef;
TVarData(SourceData).vDispatch := DataSource1;

try
ds := Map1.Datasets.Add(miDataSetDelphi4, SourceData, 'TestDS','GEOABBR', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
ds.Themes.Add(miThemeRanged, 'TOTPOP', EmptyParam, EmptyParam);

except
on E: EOleException do
Application.MessageBox(PChar(E.Message), 'Error',  MB_OK or MB_ICONERROR);
end;
end;

按道理说没有理由出错，但就是不能正确的 运行？？？？？？？？？？？？？？？？？？？？？？？<!-- viewthread_post_sig -->

DataSource1 控件有没有连接到数据库的一个表呀？？

有的，可能是设置方面的问题，不知哪位大哥做过没有？|