[求助]大家看看这个为什么查询不了

<P>Option Explicit<BR>Dim g_symSelection As MapObjects2.Symbol<BR>Dim Sbl As Boolean<BR>Dim Si As Integer<BR>Dim Smax As Integer<BR>Dim recSelection As MapObjects2.Recordset</P>
<P><BR>Private Sub Command1_Click()<BR>  Dim shp As MapObjects2.Polygon<BR>  Dim strExpression As String<BR> 'Label1.Caption = "找到第" ; Si ; "个州。"<BR>  <BR>  '查找；<BR>  strExpression = "NAME=E26"<BR>  Set recSelection = Map1.Layers(0).SearchExpression(strExpression)<BR>  <BR>  '打开显示开关；<BR>  Sbl = True<BR>  MsgBox strExpression<BR>  '设置闪烁2次；<BR>  Set shp = recSelection.Fields("Shape").Value<BR>  Map1.FlashShape shp, 2<BR>  <BR>  '调用Map1_AfterLayerDraw显示查找结果；<BR>  Map1.Refresh<BR>  <BR>  '找到下一个州的序号；<BR>  <BR>End Sub</P>
<P>Private Sub Form_Load()<BR>  '初始设置；<BR>  Sbl = False<BR>  Si = 1<BR>  Label1.Caption = "点击“查找”"<BR>  <BR>  '添加图层；<BR>  DrawLayer<BR>  <BR>  '设置显示模式；<BR>  Set g_symSelection = New MapObjects2.Symbol<BR>  With g_symSelection<BR>    .SymbolType = Map1.Layers(0).Symbol.SymbolType<BR>    .color = moDarkGreen<BR>  End With<BR>End Sub</P>
<P>Sub DrawLayer()<BR>  Dim dc As New DataConnection<BR>  Dim layer As MapLayer<BR>  Dim recs As MapObjects2.Recordset<BR>  <BR>  '添加图层；<BR>  dc.Database = App.Path + "\..\" + "Mexico"<BR>  If Not dc.Connect Then<BR>    MsgBox "在指定的文件夹下没找到图层数据文件！"<BR>    End<BR>  End If<BR>  Set layer = New MapLayer<BR>  Set layer.GeoDataset = dc.FindGeoDataset("diahao")<BR>  layer.Symbol.color = moYellow<BR>  Map1.Layers.Add layer<BR>  <BR>  '找到最大记录数；<BR>  Set recs = layer.Records<BR>  Smax = recs.Count<BR>End Sub</P>
<P>'显示查询结果；<BR>Private Sub Map1_AfterLayerDraw(ByVal index As Integer, ByVal canceled As Boolean, ByVal hDC As stdole.OLE_HANDLE)<BR>  If Sbl Then<BR>    If Not recSelection.EOF Then<BR>      Map1.DrawShape recSelection, g_symSelection<BR>    End If<BR>    Set recSelection = Nothing<BR>  End If<BR>End Sub</P>
<P>以上是我想查询的程序</P>
<P>  但是说什么记录集中没有这个纪录</P>
<P>其实有</P>
<P>为什么啊</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<P>Set shp = recSelection.Fields("Shape").Value</P>
<P>是这句有问题？</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

Set recSelection = Map1.Layers(0).SearchExpression(strExpression)<BR>这句可以的确没有找到，看看recSelection 是不是为空