Richard:
I am creating a registration form for my new app, and have a small problem.  I am using a Navigation form as my startup form, and the on OPEN event VBA code as below.  I am not getting an error message, and the message box says that the app is registered, however when I restart the database it says that the database is not registered.  When I look in the Registry it appears that the database is registered.  Here is the VBA code.  Can you tell me what I am missing?  Thanks.

Private Sub Form_Open(Cancel As Integer)
    Dim S As String
    Dim Key1 As Long, Key2 As Long, L As Long
    Key1 = Int(Rnd() * 1000000) + 1000000  '1000000 - 2000000
    Key2 = Int(Key1 * 3 / 2) + 23331
    S = InputBox("Your Database Is Not Registered!  Call customer service at (830) 214-5436 to get   your password.  Your KEY is:   " & Key1)
    If S = "" Or IsNull(S) Then
        L = 0
    Else
        L = CLng(S)
    End If
    If L = Key2 Then
        SaveSetting "MSWinRegSet32", "Section1", "IsReg", "TRUE"
        MsgBox "Your database is now registered. Enjoy."
    Else
        MsgBox "Password is INCORRECT. Please call (830) 214-5436 for support."
        Quit
    End If
End Sub

---

Reply from Alex Hedley:

Where are you checking the reg key?

There should be a GetSetting(...) to check the Reg Key.