Function addAcessData()
'首先绑定数据
With AxAdodc1
.RecordSource = "bb"
.Refresh()
End With
Dim rs As Recordset = AxAdodc1.Recordset
Dim flds As New MapXLib.Fields
Dim count As Integer = rs.Fields.Count
MsgBox(count)
'Exit Function
For i = 0 To rs.Fields.Count - 1
flds.Add(rs.Fields(i).Name)
Next
Dim ly As Layer = Form1.AxMap1.Layers.Item(2) '路段图层
Dim name As String = "sysZOdata"
Dim ds As Dataset
ds = Form1.AxMap1.Datasets.Add(DatasetTypeConstants.miDataSetDAO, rs)
'ds = Form1.AxMap1.Datasets.Add(DatasetTypeConstants.miDataSetDAO, rs, name, , , ly, flds)
MsgBox("绑定外部数据成功！")
End Function

“System.Runtime.InteropServices.COMException”类型的未经处理的异常出现在 mscorlib.dll 中。
其他信息: Missing or Invalid Source, or Source doesn't match Type specified.
一直是这个问题，问下高手怎么解决呀