Tengo un formulario Login el cual tiene el siguiente codigo:
Código:
Imagen del frmlogin:Private Sub cmdOK_Click() Dim username, password As String username = txtUserName password = txtPassword Open App.Path & "\user.txt" For Input As #2 If Trim(username) = Trim(txtUserName.Text) And Trim(password) = Trim(txtPassword.Text) Then Unload Me Form10.Show 'Close #1 'Open App.Path & "\user.txt" For Input As #1 'Input #1, username, password ElseIf Trim(username) <> Trim(txtUserName.Text) And Trim(password) <> Trim(txtPassword.Text) Then MsgBox " UserName or Password is wrong" Unload Me Load frmLogin frmLogin.Show Close #1 End If

Y tengo un formulario llamado Form5 el cual tiene este codigo
Código:
Imagen del Form5:Private Sub Command1_Click() Dim username As String, password As String Dim duplicate As Boolean 'If Dir(App.Path & "\user.txt") = "" Then GoTo adduser Open App.Path & "\user.txt" For Input As #1 Do While Not EOF(1) Input #1, username If Trim(username) = Trim(txtUserName.Text) Then 'And Trim(pwd) = Trim(txtPassword.Text) MsgBox "El Usuario ya existe" Close #1 Exit Do End If Loop Close #1 adduser: Open App.Path & "\user.txt" For Append As #1 Write #1, Trim(txtUserName.Text), Trim(txtPassword.Text) Close #1 MsgBox "Usuario creado." MsgBox "Gracias por comprar." Unload Me frmLogin.Show 'Else 'adduser: End Sub

Mi meta es lograr que en el Form5 se pueda agregar un usuario con su contraseña la cual las guarde en un archivo de texto (no importa la seguridad del mismo) y desde el frmLogin lea ese archivo, busque si el usuario existe y que si existe entre a la aplicacion X, en caso contrario de un mensaje de que el usuario no existe.
Con el Form 5 el uncio problema que tengo es que al existir un usuario lo reemplaza, y si no inserta una contraseña crea el usuario igualemten sin contraseña.
Que es lo que esta mal en mi codigo? Que debo cambiar?