Closed Ms Acces / Visual Studio

[ElectronicKong]

(button reset)
If TXTUN.Text = "" Then
MsgBox("Username required")
TXTUN.Focus()
ElseIf TXTNPW.Text = "" Then
MsgBox("Password required")
TXTNPW.Focus()
ElseIf TXTRNPW.Text = "" Then
MsgBox("Retype password required")
TXTRNPW.Focus()
ElseIf TXTADMINPW.Text = "" Then
MsgBox("Admin's password required")
TXTADMINPW.Focus()
ElseIf TXTNPW.Text <> TXTRNPW.Text Then
MsgBox("Password mismatched")
TXTNPW.Focus()
ElseIf TXTNPW.Text.Length < 6 Then
MsgBox("Password must be 6 characters and above")
TXTNPW.Focus()
Else
OPENCONN()
RS.Open("select * from TBLUSER where password='" & TXTADMINPW.Text & "' AND POSITIONID = 1", CON, 3, 3) 'ADMIN PASSWORD VALIDATION
If Not RS.EOF Then
OPENCONN()
RS.Open("SELECT *FROM TBLUSER WHERE USERNAME='" & TXTUN.Text & "' AND POSITIONID = 2", CON, 3, 3) 'SECURING NA SI STAFF LANG MAKAKAPAGPALIT NG PASSWORD
If Not RS.EOF Then

OPENCONN()
RS.Open("SELECT * FROM TBLUSER WHERE USERID" & USERID, CON, 3, 3)
RS.Fields("username").Value = TXTUN.Text
RS.Fields("password").Value = TXTNPW.Text
RS.Fields("POSITIONID").Value = POSITIONID

RS.Update()
MsgBox("NEW STAFF ADDED")
Else
MsgBox("ADMIN")
End If

Else
MsgBox("Admin's Password invalid")

End If
End If

yung code na po yan para mag reset ng password .
pero yung STAFF lang makakapag reset ng password (positionid=1 --> ADMIN) (position=2 ----> STAFF)

Ang ng yayari po yung Unang data sa database (ms access) ang nag papalit ng password
ang gusto ko po kasi mang yari kung sino tinype kong ex."user3" sa username na textbox
at nag type na ako sa new password at retype password na textbox yung "user1" po nag papalit ng password

thankyou mga prog masters.