help:基于 delphi6.0 mapx3.0 sql2000 的程序调试

我在做绑定工作，我用的是delphi6+mapx3.0，我的程序如下，编译是通过了，但总是有错。
procedure TForm1.BitBtn1Click(Sender: TObject);
var
OdbcQueryInfo:variant;
bindlayer:CMapXBindLayer;
ds:CMapXDataset;
unusedparam:olevariant;
afield:CMapXFields;
begin
OdbcQueryInfo:=createoleObject('mapx.odbcQueryInfo.3');
OdbcQueryInfo.SqlQuery:='select * form test1';
OdbcQueryInfo.connectstring:='odbc;';
OdbcQueryInfo.DataSource:='test';bindlayer:=CoBindLayer.Create;
bindlayer.LayerName:='test';
bindlayer.LayerType:=MiBindlayerTypeNormal;aField := CoFields.Create;
afield.Add('id','name',unusedparam,unusedparam);ds:=form1.Map1.Datasets.Add(2,OdbcQueryInfo,'dataset1','id',unusedparam,bindlayer,aField ,unusedparam);
end;
错误如下：Custom dataset error. Could not 
find a CLSID for the type of custom dataset specified. Check that the custom dataset is properly registered.
我不知如何修改，请大侠帮忙！！很不好意识，我的问题请各位帮帮忙，我实在解决不了。
这是我的毕设任务，请各位帮我分析一下我的错误，谢谢。
我用的是mapx3.0+delphi6,odbc , sql 2000 , 我的图层是在中国电子地图中调的区域图层，它的关键字段是类型，我的数据库中表与它匹配的是省份，完全匹配，但不知是什么出错？上面有原程，请帮忙看看！