简单的问题也需要探讨啊

info工具代码，有问题再一起探讨
Private Sub Map1_SelectionChanged()      
    Dim ftr As Feature                   ' 声明Feature变量
Dim rs1 As New ADODB.Recordset    ' 声明ado变量
Dim selname As String               ' 声明字符串变量
If l Map1.Layers("Dcity").Selection.Count > 0 Then  ' 判断当前是否有选择
    For Each ftr In Map1.Layers("Dcity").Selection  ' 查找被选择图元的ID
     selname = ftr.FeatureID            ' 把选择图元的ID付给变量
     Next
End If
    cla.OpenCnn (DAPA)                 ' 打开数据库连接
Set rs1 = cla.OpenTable("SELECT * FROM city WHERE ID=" & selname & "")
' 在cit表中查找ID为selname的
DataTableModify .Text1=rs1!ID' 把查找到的内容付给属性编辑窗体的Text控件
DataTableModify .Text2=rs1!名称
    DataTableModify.Show               ' 调用属性数据编辑窗体
End Sub

8 错
鼓励