MapX+VB的查询程序小问题

Question

我想利用MapX来实现查找。
有两段程序，都是想要查找地图上“自忠小学”，但是，总是出现错误，请哪位帮我看看程序一：************************************************
Private Sub Command1_Click()
Dim lyr As MapXLib.Layer
Dim ds As MapXLib.Dataset
Dim findftr As MapXLib.FindFeature
Dim ftr As MapXLib.FeatureSet lyr = Map1.Layers("学校")
Set ds = Map1.DataSets.Add(miDataSetLayer, lyr)
Set lyr.Find.FindDataset = ds
Set lyr.Find.FindField = ds.Fields("Name")Dim str As String
str = "Name=""自忠小学"""Set findftr = lyr.Find.Search(str)  
...........
........
End Sub
**************************************************************************
查找的结果是ftrs.Count 为0，就是没找到记录，但是地图上明明有这个点的程序二*********************************************************************
Private Sub Command2_Click()
    Dim FindObj As MapXLib.Find
    Dim FoundFeature As FindFeature
    Dim lyr As MapXLib.Layer
    Dim ds As MapXLib.Dataset
    
    Set lyr = Map1.Layers("学校")
    Set ds = Map1.DataSets.Add(miDataSetLayer, lyr)    Set FindObj = Form1.Map1.Layers.Item("学校").Find
    Set FindObj.FindDataset = ds
    Set FindObj.FindField = ds.Fields("Name")
    
    Set FoundFeature = FindObj.Search("Name=""自忠小学 """) '出错      
    Me.Hide
    Form1.Map1.AutoRedraw = False
    Form1.Map1.CenterX = FoundFeature.CenterX
    Form1.Map1.CenterY = FoundFeature.CenterY
    Form1.Show
    
End Sub************************************************************************************
运行程序二，Set FoundFeature = FindObj.Search("Name=""自忠小学 """) 这一句出错，错误信息为：对象‘search’的方法‘CMapXLayerFind’失败
这到底怎么回事啊，搞了好久，不知道为什么。请帮忙解答一下！解决后立马结贴

Answer 1

运行程序二，Set FoundFeature = FindObj.Search("Name=""自忠小学 """) 这一句出错，错误信息为：对象‘search’的方法‘CMapXLayerFind’失败这到底什么意思啊
本人刚接触MapX
请达人帮忙解答！

Answer 2

Set FoundFeature = FindObj.Search("Name='自忠小学'")
试试