VB数据库find方法问题求教

VB数据库find方法求教大家！谢谢拉！我邮箱suke0012@
一、源代码如下：
Private Sub Command1_Click()
If Text1.Text = "" Then
       MsgBox "请输入城市名称", 0, "提示："
       Text1.SetFocus
Else
      Adodc1.Recordset.Find "地区名称 like '%" & Text1.Text & "%'", 2, adSearchForward
      If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox "没有您要查找的城市，请在尾输入城市参数", , "注意："
      Set DataGrid1.DataSource = Adodc1
End If
End Sub

Private Sub Form_Load()
  Me.Show
End Sub
二、运行时情况如下：
1，在文本框未输入任何文字时，点击“地区查询”按钮，显示“提示： 请输入城市名称”，按确定按钮返回。
2，在文本框中输入与“地区名称”内没有任何关系的字符时，如：“1”时，点击“地区查询”按钮，显示“注意：没有您要查找的城市,请在尾输入城市参数”，按“确定”按钮返回。
3，在文本框输入与“地区名称”内名称完全一致的名称，比方“北京”，点击“地区查询”按钮，find方法就直接定位到“北京”处，我再点击一次“地区查询”按钮，就显示“注意：没有您要查找的城市,请在尾输入城市参数”，问题:我想再点击“地区查询”按钮,仍停留在“北京”处，而不出现显示“注意：没有您要查找的城市,请在尾输入城市参数”的提示。
4，如果在文本框输入与“地区名称”内的名称更简单的字符，如输“安”时，首先查找到第一个带“安”字的城市，每点击一次“地区查询”按钮，就查找到一个带“安”字的城市名，一直到最后一个带“安”字的城市名后，如果再点击一次“地区查询”按钮，就显示“注意：没有您要查找的城市,请在尾输入城市参数”，问题:我想再点击“地区查询”按钮，查找到最前部的第一个带“安”字的城市处，而不出现显示“注意：没有您要查找的城市,请在尾输入城市参数”的提示。