A family of Microsoft relational database management systems designed for ease of use.
What are the better ways ?
As suggested upthread, include both a Password field and a date/time field PasswordExpires. When you create a new user give them a password that's really easy - "password" for example! - and set the PasswordExpires field to =Date().
Then in your logon process check the expiration date. If it's less than or equal to Date() make them assign a new password of their own choice. You can enforce "strong" passwords by (say) ensuring that their entry is of mixed case or contains at least one number:
Dim blnPwdOk As Boolean
If StrComp([txtPassword], LCase([txtPassword]), 0) = 0 Then
MsgBox "Password must contain at least one uppercase letter", vbOKOnly
blnPwdOk = False
Elseif StrComp([txtPassword], UCase([txtPassword]), 0) = 0 Then
MsgBox "Password must contain at least one lowercase letter", vbOKOnly
BlnPwdOk = False
< use Instr to check for digits and/or special characters >
You may also want to set the PasswordExpires field to some date (say three months in the future) after you update the password.