Here's an even better solution, with inputs for all possibilities. You can't use a combobox on the form for this because the combo will disable itself as soon as ENABLE EDITS is false.
Code:
Private Sub cobEdit_Click()
Dim x As String
x = InputBox("Select data mode: Enter 1,2, or 3" & vbCrLf _
& "1 New Records Only" & vbCrLf _
& "2 View Existing Records" & vbCrLf _
& "3 Edit Existing Records", "C H O O S E A D A T A M O D E", 0)
Select Case x
Case 1 'New records only
Me.DataEntry = True
Case 2 'View records only
Me.DataEntry = False
Me.AllowEdits = False
Case 3 'edit existing records
If MsgBox("If you change the name it will change all History. Better to create a new account." & vbCrLf _
& "Do you want to continue to edit?", vbYesNo, "1st Edit Confirmation") = vbYes Then
If MsgBox("Are you SURE you want to EDIT?" & vbCrLf & _
"I STRONGLY suggest a new account.", vbYesNo, "2nd EDIT Confirmation") = vbYes Then
Me.DataEntry = False
Me.AllowEdits = True
End If
End If
Case Else
MsgBox "No change chosen"
End Select
End Sub