Private Sub Form_Load()
    ' Open the data file.
    fnum = FreeFile
    Open App.Path & "\Files\test.txt" For Random As fnum Len = Len(SaveUser)

    ' Save the records.
        Get #fnum, i + 1, SaveUser
        Username = Trim$(SaveUser.Username)
        Password = Trim$(SaveUser.Password)
    ' Close the file.
    Close #fnum
End Sub

Private Sub cmdLogin_Click()
If txtUsername.Text = Username And txtPassword.Text = Password Then
    Unload Me
    Form2.Show
    txtUsername.Text = ""
    txtPassword.Text = ""
Else
    MsgBox "You have enterred an incorrect login", vbOKOnly + vbExclamation
    txtUsername.Text = ""
    txtPassword.Text = ""
    txtUsername.SetFocus
End If
End Sub

Private Sub cmdAdd_Click()
    ' Open the data file.
    fnum = FreeFile
    Open App.Path & "\Files\test.txt" For Random As fnum Len = Len(SaveUser)

    ' Save the records.
        SaveUser.Username = txtUsername.Text
        SaveUser.Password = txtPassword.Text
        Put #fnum, i + 1, SaveUser
    ' Close the file.
    Close #fnum
    
    MsgBox "Added"
    txtUsername.Text = ""
    txtPassword.Text = ""
    txtUsername.SetFocus
End Sub