ทำระบบ Log In แล้วเกิด เออเร่อ ควรแก้ไขอย่างไรบ้างครับผม

[Eik Q Sang]

ผมได้สร้างระบบ Log IN โดยได้สร้าง Table และ Form (รูปที่1)

รูปที่ 1

โดยได้เขียนโค้ด VB ไว้ในปุ่ม Log In ใน Form (รูปที่ 2)

รูปที่ 2

โค๊ด: [Select]

Private Sub Command6_Click()
    If DLookup("Password", "tblUser", "User_ID" = '" & Me.txt_ID & "'") = Me.txt_Password Then
        nEmployee = CInt(DLookup("User_ID", "tblUser", "User_Name = '" & Me.txt_ID & "'"))
    Else
        MsgBox "ÃËÑʼèÒ¹äÁè¶Ù¡µéͧ ¡ÃسҡÃÍ¡ãËÁèÍÕ¡¤ÃÑé§ ËÃ×Í µÔ´µèͼÙé´ÙáÅÃкº", , "ÃËÑʼԴ"
    End If
End Sub
พบว่าเกิดเออเร่อ ... 
คำถาม อยากสอบถามผู้รู้และอาจารย์ทุกท่านว่า โค้ดต้องแก้ไขตรงไหนอย่างไรบ้างครับ ขอบคุณมากครับผม 

[pizza_p]

เครื่องหมายคำพูดเกินมาตัวนึง

If DLookup("Password", "tblUser", "User_ID" = '" & Me.txt_ID & "'") = Me.txt_Password Then

[Eik Q Sang]

เครื่องหมายคำพูดเกินมาตัวนึง

If DLookup("Password", "tblUser", "User_ID" = '" & Me.txt_ID & "'") = Me.txt_Password Then

ขอบพระคุณมากครับ อาจารย์ pizza_p ขอบคุณครับผม แต่อาจาย์ครับผมแก้แล้วแต่ไปเออเร่ออีกบรรทัดแทนครับ

โค๊ด: [Select]

        nEmployee = CInt(DLookup("User_ID", "tblUser", "User_Name = '" & Me.txt_ID & "'"))

[Eik Q Sang]

ได้แล้วครับอาจาย์ ขอบคุณมากครับผม