[求助]哪位大侠给解答一个问题！！

<TABLE height="1%" cellSpacing=0 cellPadding=3 width="100%" border=0>

<TR>
<TD vAlign=top align=left colSpan=3>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>

<TR vAlign=top>
<TD  colSpan=2>求助]哪位大侠给解答一个问题！！

Private Sub TableToLayer()
Dim DB As New ADODB.Connection
Dim Rs As Recordset
Dim BindLayerObject As New MapXLib.BindLayer
Dim map As MapXLib.DataSets
Dim pubServer As String
pubServer = "ADMIN"
DB.Open "driver={sql server};server=" ; pubServer ; ";uid=sa;pwd=sa;database=map"
Set Rs = DB.Execute("select * from 果皮箱")
BindLayerObject.LayerName = "base"
BindLayerObject.RefColumn1 = "经度"
BindLayerObject.RefColumn2 = "纬度"
BindLayerObject.LayerType = miBindLayerTypeXY
BindLayerObject.FileSpec = App.Path ; "\base.tab"
Map1.DataSets.Add miDataSetADO, Rs, "base", "bs_name", "bs_no", BindLayerObject





我想把ADMIN服务器上的数据庫map中的表果皮箱上的数据通过“经度”“纬度”字段显示到“base”层上！！如上的代码有什么问题呀！！

可是运行时出现错误：
Custom dataset error. Method failed IMMapx Dataset:Init
</TD></TR></TABLE></TD></TR>
<TR>
<TD vAlign=bottom></TD></TR></TABLE>

学习！