vb+sql的查询问题

   只要查询数据库里符合条件的，就可以通过，但只要没有符合条件的数据原先符合的就再也无法查询了 ，直接显示 MsgBox "用户名或密码错，请重输！", vbCritical, "提示"   。 高手帮忙看看  Private Sub Command1_Click()
      
 On Error GoTo errhandle
     If Text3.Text = " " Then                       ‘//没作用。。
       MsgBox "请选择所在部门！", vbOKOnly, " 提示"
       Text3.SetFocus
       Exit Sub
     End If
     If Text1(0).Text = " " Then
       MsgBox "请输入用户名！", vbOKOnly, " 提示"
       Text1(0).SetFocus
       Exit Sub
     End If
     If rsd1.State = 0 Then
        rsd1.Open "select * from dlyh where glrz_yhm = '" & Trim(Text1(0).Text) & "'and glrz_mm = '" & Trim(Text2.Text) & "'", conn, adOpenDynamic, adLockOptimistic
     End If
      
      If Not rsd1.EOF Then
          If rsd1("glrz_qx") = 1 Then
             qx = True
             xm = rsd1("glrz_yhm")
          Else
             qx = False
             xm = rsd1("glrz_yhm")
             bm = rsd1("glrz_bm")
          End If
      Form7.Show
      Unload Me
      Else
         MsgBox "用户名或密码错，请重输！", vbCritical, "提示"        '//只能查询一次？？？？
         
         Exit Sub
     End If
     rsd1.Close
     Set rsd1 = Nothing
     Exit Sub
    
errhandle:
               MsgBox "出错!" & Err.Description & Err.Number, vbCritical, "提示"
              
              
End Sub