vb+MAPX开发打开ACESS数据库并于里面的X,Y 数据绑定

 Private Sub Command5_Click()
   Dim dataset As MapXLib.dataset
    Dim BindLyr As New MapXLib.BindLayer
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSql As String
    
    '打开mdb数据库
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
     conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "/data/pccw.mdb"
  
    strSql = "select * from BINDLAYERXY"
    rs.open strSql, conn, adOpenStatic, adLockReadOnly
    
    '绑定，引入ACCESS数据源
    BindLyr.LayerType = miBindLayerTypeXY
    BindLyr.RefColumn1 = "MI_SQL_X"
    BindLyr.RefColumn2 = "MI_SQL_Y"
    Set dataset = Map1.DataSets.Add(miDataSetADO, rs, , "MI_SQL_X", "MI_SQL_Y", BindLyr)
    
'    '生成专题图
'    Dim cols(1 To 2) As String
'    cols(1) = "popnum"
'    cols(2) = "income"
'    dataset.Themes.Add miThemeBarChart, cols
    
    rs.Close
    Set rs = Nothing
   end sub