VB中解决用户输入是否与库里的记录重复的问题??

前面的Cnn声明我就省略了，我的思想就是查找到即为重复.但不知为什么不管我输入什么都告诉我重复了?请高手帮我看看:
Private Sub save_Click()
On Error Resume Next
If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text6.Text = "" Then
MsgBox "您没有输入完整，无法为您保存", vbOKOnly + vbCritical, "提示" '防止用户输入空记录
Exit Sub
End If
Set cnn = New ADODB.Connection
cnn.Open connectstring
Dim rstemp As New ADODB.Recordset
strtemp = "select * from Stu_zrqk where 学号='" & Trim(Text2.Text) & "';"
rstemp.Open strtemp, cnn, adOpenDynamic, adLockReadOnly
If Not rstemp.EOF Then
MsgBox "学号不唯一，重新输入！"
Text2.SetFocus
rstemp.Close
cnn.Close
Exit Sub
End If
textAllFalse
Adodc1.Enabled = True
Adodc1.Recordset.Update
Initialcmd '初始化按钮
Exit Sub
End Sub

VB中解决用户输入是否与库里的记录重复的问题?? VB打开一个用户输入的网页 VB中进行文本文件的输入与对比 VB中如何阻止用户在文本框中输入字母？ 在vb中怎么屏蔽用户输入的全角特殊字符 VB编程,在密码登陆框中,当用户输入用户名错误的时候,怎么让用户重新输入用户名和限制仅输入三次即退出运行 创建一个VB程序，如何使程序能判断用户输入的用户名和密码是否正确？ 如何在ASP表单中校验用户输入的数据格式是否正确? VB中如何限定文本框的输入？ VB中修改输入文本的字体