1) it cant set itself as nothing so just be lazy
code:
Private Sub cmdOK_Click()
Dim Username As String
Dim Password As String
Dim Email As String
If txtPasskey.Text = "12345" Then
Username = txtUsername.Text
Password = txtPassword.Text
Email = txtEmail.Text
Open Filename For Append As #1
Print #1, Username & "|" & Password
Print #1, Email
Close #1
txtUsername.Text = ""
txtPassword.Text = ""
txtUsername.SetFocus
MsgBox "User account created"
Unload Me
Else
MsgBox "Passkey is invalid"
End If
End Sub
2)
when you go to open the data base. we dont have the same folders as you do, so it would be alot better to add something like:
code:
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Stock Control 97 Version.mdb;"
and im sorry, but i havnt been able to answer any of the database questions. i dont understand why either
/ 
