stuncrazy 0 Newbie Poster

ok so i'm trying to set up my program to insert a new record to my database i keep getting a insert syntax error

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click


        '************************************************
        '*                                                                                           **
        '*   will first verify that all necessary information needed      **
        '*                              to make a legitimate                             **
        '*      record has been entered and request user to verify    **
        '*               that all information entered is correct                  **
        '*                                                                                           **
        '* after all verifying all information is entered and correct     **
         '*                            will use a for loop                                  **
        '*      and the currencyManager to enter all information        **
        '*                             into Clients DB table                              **
        '*                                                                                           **
        '*  once all information has been entered into a database a** 
       '*                                 dialog box will open                            **
        '*        asking client if they would like to enter a new client  **
        '*                             if they answer yes all                             **
        '*fields will be cleared and if they say no this form will close**  
        '*                                                                                           **
        '*************************************************




        Dim FName As String = txtFName.Text.Trim
        Dim LName As String = txtLName.Text.Trim
        Dim MI As String = txtMI.Text.Trim
        Dim verify As Int16 = 0
        Dim counter As Int16 = 0





        'Verifying all information needed is entered
        If rbMale.Checked = False And rbFemale.Checked = False Then
            MessageBox.Show("Please enter clients gender", "Choose Gender", MessageBoxButtons.OK, MessageBoxIcon.Error)

        ElseIf DOBTextBox.Text.Length = 0 Or Not IsDate(DOBTextBox.Text) Then
            MessageBox.Show("Please specify D.O.B.", "Add D.O.B.", MessageBoxButtons.OK, MessageBoxIcon.Error)


        ElseIf FName.Length = 0 Or LName.Length = 0 Then
            MessageBox.Show("Please enter client's full name", "Client Name", MessageBoxButtons.OK, …