ช่วยดูCodeให้หน่อยครับหน้าLogin

Private Sub Command4_Click()
Dim stDocName As String, stLinkCriteria As String
Dim rst As DAO.Recordset, dbs As Database
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("SELECT * FROM USER   WHERE USER_NAME='" & Text0.Value & "'" & " and USER_PASS='" & Text2.Value & "'")
If rst!USER_NAME = Text0.Value And rst!USER_PASS = Text2.Value Then
UserLogin = rst!USER_NAME
BelongToAdmin = rst!USER_ADMIN
DoCmd.Close
stDocName = "โปรแกรมคลังสินค้า"
DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog
Else
Beep
MsgBox "ชื่อหรือรหัสผ่านไม่ถูกต้อง"
End If
End Sub

เวลาไม่ได้ใส่ค่าใน Textbox แล้วคลิ๊กหรือใส่ค่าผิดจากในตารางจะเออเรอร์รันทามครับตรงบรรทัด
If rst!USER_NAME = Text0.Value And rst!USER_PASS = Text2.Value
ครับมีวิธีแก้ไหมครับแทนที่มันจะโชว์ "ชื่อหรือรหัสผ่านไม่ถูกต้อง" แต่มันกลับไม่ Else