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

<P>为什么运行时总时提示：</P>
<P>实时错误‘1164’</P>
<P>对于造型说明无效的字符值</P>
<P>这是什么原因？？提示错误行</P>
<P>frmD.Map1.DataSets.Add miDataSetODBC, OdbcQueryInfo, "gpx", , , bindlayer</P>
<P>源代码如下：</P>
<P>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"</P>
<P>    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>

学习！