Private Sub btnOK_Click()
If IsNull(Me.txtUsername) Then
MsgBox "Please enter your username.", vbInformation, "Username Is Required"
Me.txtUsername.SetFocus
Else
If IsNull(Me.TxtPassword) Then
MsgBox "Please enter your password.", vbInformation, "Password Is Required"...