SQL Add to Table, Used To Work, Now Doesnt ...

Hey Experts.

This chunk of code worked to add details to tblCustomer linking it to tblCustPhone.
I have made no changes to the tables, the DMax function on my CustomerID unbound control updates the addition, yet no data is diaplayed.

eg. i type in the details for the customer.
It passes the validation. And displayes a confirmation saying the user was added.

i go to the table. the record is not there.
i reopen my form, and the customer ID has incrimented the value (as if something WAS added but just isnt shown)

if that makes sence?



Private Sub cmdAddCust_Click()
Dim sSQL1 As String
Dim sSQL2 As String
Dim sSQL3 As String

' ***********************************
    'Insert Customer Data
    sSQL1 = "INSERT INTO tblCustomer ([CustomerID], [Title], [Forename], [Surname], [PassPhrase], [Gender], [Street], [Town], [County], [Pcode], [DOB], [MFD], [DateJoined]) VALUES (txtCustomerID, txtTitle, txtForename, txtSurname, txtPassPhrase, cboGender, txtStreet, txtTown, txtCounty, txtPcode, txtDOB, txtMFD, txtDateJoined)"
    'Insert DAYTIME Phone Number
    sSQL2 = "INSERT INTO tblCustPhone ([CustomerID], [PhoneNumber], [Type], [EarliestCall], [LatestCall]) VALUES (txtCustomerID, txtTel1, cboTel1Type, txtTel1Early, txtTel1Late)"
    'Insert EVENING Phone Number
    sSQL3 = "INSERT INTO tblCustPhone ([CustomerID], [PhoneNumber], [Type], [EarliestCall], [LatestCall]) VALUES (txtCustomerID, txtTel2, cboTel2Type, txtTel2Early, txtTel2Late)"
' ***********************************


'Validate to see if there is data in the necessary field names
'And Me.txtCounty.Text And Me.txtTown.Text Or Me.txtPcode.Text Or Me.txtDOB.Text = ""

If IsNull(txtForename) = True Or IsNull(txtSurname) = True Or IsNull(txtStreet) = True Or IsNull(txtTown) = True Or IsNull(txtCounty) = True Or IsNull(txtPcode) = True Then
    MsgBox "We cannot add this customer because some data has not been typed into the necessary fields" & vbNewLine & "Please enter this data before you continue", vbOKOnly + vbExclamation, "Data Entry Error"
    Exit Sub  'Exit sub to stop any more code being run beyond this point!
Else
    'dont show any messages to the user saying they are about to UPDATE a row of data
    DoCmd.SetWarnings False
    DoCmd.RunSQL sSQL1
    MsgBox "contact SQL Script Run"
    DoCmd.OpenTable "tblCustomer"
         
         
    'Add Corresponding Phone Numbers To Contact
        If IsNull(txtTel1) = False Then 'if there is data in TELEPHONE 1
            DoCmd.RunSQL sSQL2  'add phone 1
        ElseIf IsNull(txtTel2) = False Then 'if there is data in TELEPHONE 2
            DoCmd.RunSQL sSQL3  'add phone 2
        End If
    MsgBox [txtForename] & " " & [txtSurname] & " was sucessfully added to database!", vbOKOnly + vbInformation, "Record Addition"
End If

DoCmd.Close
DoCmd.OpenForm "frmCustSB"
End Sub