[求助]一个把数据库中的数据显示为mapx中的点的错误！！

<P>为什么运行时总时提示：

实时错误‘1164’

对于造型说明无效的字符值

这是什么原因？？提示错误行

frmD.Map1.DataSets.Add miDataSetODBC, OdbcQueryInfo, "gpx", , , bindlayer

源代码如下：

Private Sub ODBCType_Click()
Dim bindlayer As New bindlayer
Dim OdbcQueryInfo As New OdbcQueryInfo
Dim lyr As New MapXLib.Layer
Dim ds As New MapXLib.Dataset
Dim ftr As New MapXLib.Feature
Dim DirFile As String


OdbcQueryInfo.connectstring = "ODBC;"
OdbcQueryInfo.DataSource = "sunyon"
OdbcQueryInfo.SqlQuery = "select * from gpx"

bindlayer.LayerName = "gpx"
' bindlayer.CoordSys.PickCoordSys

'DirFile = Dir(App.Path + "\gpx.TAB")
'If (DirFile <> "") Then
' Kill App.Path + "\us_cust.*"
'End If
bindlayer.FileSpec = App.Path + "\gpx.TAB"
bindlayer.RefColumn1 = "x"
bindlayer.RefColumn2 = "y"
bindlayer.LayerType = miBindLayerTypeXY

frmD.Map1.DataSets.Add miDataSetODBC, OdbcQueryInfo, "gpx", , , bindlayer
Call ChangeCombo

Set frmD.Map1.Bounds = frmD.Map1.Layers.Bounds

Set bindlayer = Nothing
Set OdbcQueryInfo = Nothing
End Sub
</P>

<P>数据库中的XY字段的类型是float型的提示的错误如下：</P>