ทำตามหนังสือครับ
คือมันเป็นแถบสีน้ำเงิน ตรง USER_NAME ครับ

แถวนี้ครับ " WHERE USER_NAME=' " & USER_NAME & _
.............
Private Sub cmdOK_Click()
On Error GoTo Err_cmdOK_Click
Dim rst As Recordset
Dim dbs As Database
Dim stDocName As String
Dim stLinkCriteria As String
Dim USR As Variant

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("SELECT * FROM TBL_USER" & _
" WHERE USER_NAME=' " & USER_NAME & _
" ' AND USER_PASS =' " & USER_PASS & " ' ")
If Not rst.EOF Then
UserLogin = rst!USER_NAME
BelongToAdmin = rst!USER_ADMIN
DoCmd.Close
stDocName = "frmMain"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
Beep
MsgBox "ชื่อหรือรหัสไม่ถูกต้อง", vbCritical, "แจ้งให้ทราบ "
End If

Exit_cmdOK_Click:
Exit Sub

Err_cmdOK_Click:
MsgBox Err.Description
Resume Exit_cmdOK_Click
End Sub
................
ขอบคุณครับ