cbm666大哥再劳烦你一下

Select Case cmdedit.Caption    '修改按钮的代码
     Case "修改"
       Text1.SetFocus
       SendKeys "{home}+{end}"
       Data1.Recordset.Edit
       cmdedit.Caption = "确定"
       cmdadd.Enabled = False
       cmddel.Enabled = False
       cmdfirst.Enabled = False
       cmdprev.Enabled = False
       cmdnext.Enabled = False
       cmdlast.Enabled = False
     Case "确定"
       Dim xh As String
       xh = Text1.Text　　'text1里面输入的是学号
        Data1.Recordset.MoveFirst
        Data1.Recordset.FindFirst "学号=" & Chr(39) & xh & Chr(39)
     If Not Data1.Recordset.NoMatch Then
        MsgBox "此学号已经存在"
       Else
       Data1.UpdateRecord
       cmdedit.Caption = "修改"
       cmdadd.Enabled = True
       cmddel.Enabled = True
       cmdfirst.Enabled = True
       cmdprev.Enabled = True
       cmdnext.Enabled = True
       cmdlast.Enabled = True
      End If
End Select
为什么无论表中存在不存在所输入的学号都显示“这个学号已存在”，是哪里错了，帮忙改一下吧，谢谢了