ผมขอความช่วยเหลือด้วยครับ ผมได้สร้างฟอร์ม login ไว้เรียบร้อยแล้ว และได้เขียนคำสั่งให้รหัสผ่านไปเก็บไว้ที่ฟอร์มหลัก (Form1) ได้ แต่ตอนนี้มีปัญหาว่า ผมจะเปลี่ยนเป็นให้รหัสผ่านไปเก็บไว้ที่ฟอร์มย่อย (Form2) แทน (ฟอร์มย่อยเป็นรูปแบบ Continuous Forms และฟิวด์ที่สร้างไว้รับรหัสผ่านชื่อ sub_user) โดยที่เมื่อเปิดฟอร์มขึ้นมาจะเป็นการเพิ่มหรือเรียกข้อมูลมาแก้ไขก็ตาม ให้รหัสผ่านนั้นไปเก็บในฟอร์มย่อยทุกครั้งเมื่อมีการเพิ่มหรือเปลี่ยนแปลงข้อมูลครับ
ด้านล่างนี้เป็นคำสั่งที่ผมได้นำมาใช้ จะต้องแก้ไขอย่างไรครับ
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim USR As Variant
    Dim rst As Recordset
    Dim dbs As Database
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("SELECT * FROM User" & _
                             " WHERE User='" & USER_NAME & _
                            "' AND password ='" & USER_PASS & "'")
    If Not rst.EOF Then
        UserLogin = rst!User
        BelongToAdmin = rst!Password
        stDocName = "Form1"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        DoCmd.GoToRecord , , acNewRec
        Forms("Form1").Controls("username1") = [USER_NAME]
    Else
        Beep
        MsgBox "ชื่อ หรือ รหัสผ่านไม่ีถูกต้อง โปรดใส่ชื่อ หรือ รหัสผ่านให้ถูกต้อง ", 0, "แจ้งให้ทราบว่า"
    End If

อ. และท่านผู้รู้ครับ โปรดช่วยแก้ไขให้ถูกต้องด้วยครับ ขอบคุณครับ