Perintah Membuat UserName & Password pada MS Access

If IsNull(Me.cboNama) Or Me.cboNama = "" Then
MsgBox "Pilih Username anda terlebih dahulu", vbOKOnly, "Masukkan Username"
Me.cboNama.SetFocus
Exit Sub
End If

If IsNull(Me.txtPword) Or Me.txtPword = "" Then
MsgBox "Passwordnya jangan lupa dimasukkan", vbOKOnly, "Masukkan Password"
Me.txtPword.SetFocus
Exit Sub
End If
If Me.txtPword.Value = DLookup("UserPassword", "TUser", "[UserID]=" & Me.cboNama.Value) Then
MyUserID = Me.cboNama.Value
MsgBox "Login anda berhasil", vbOKOnly, "Message Hellion"
DoCmd.Close acForm, "LOGIN2", acSaveNo
DoCmd.OpenForm "Switchboard"
Else
MsgBox "Password yang anda masukkan salah boss, harap perhatikan caps lock anda", vbCritical, "Hellion Message"
Me.txtPword.SetFocus
End If

Download Hasil Jadi MS Acces Disini!