Private Sub cmdOK_Click()
          Dim stDocName As String, stLinkCriteria As String
          Dim rst As Recordset, dbs As Database
          Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("SELECT * FROM Tbl_User   WHERE User_Name='" & Text11.Value & "'" & " and User_Pass='" & Text13.Value & "'")

               If rst!User_Name = Text11.Value And rst!User_Pass = Text13.Value Then
                     
                      UserLogin = rst!User_Name
                     
                      BelongToADmin = rst!User_Admin
                     
                 DoCmd.Close
                 
                 stDocName = "Frm_Main"
                 
                 DoCmd.OpenForm stDocName, , , stLinkCriteria
                 
               Else
              
               Beep
                      MsgBox "Username and Password Invoid", "Warning"
                     
               End If
End Sub
ตรง Else MsgBox "Username and Password Invoid", "Warning"
ไม่แสดงกล่องข้อความค่ะไม่ทราบว่าโค้ดผิดตรงไหนค่ะ แก้ไม่รุ้จะไปแก้ตรงไหนแล้วค่ะ