Formulaire d'ajout vb.net

Bonour!
je veux insérer les données du formulaire dans la base de données sql server mais il parait un petit soucis dans le code. svp! pourrez voyus m'aider à réparer le code ci dessous

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

Try
Dim requete As String = "INSERT INTO CUST_DIRIGENT (CUST_ID_STATUS_101534311,contact,civilite,fonction,service,telephone_fixe_bureau,telephone_portable_1,email,commentaire,date_dernier_email,date_dernier_prise_cont,date_dernier_note,date_dernier_reunion,date_dernier_lettre_env,date_dernier_appel,modifier_le,modifier_par,dernier_resultats,code_donneur_ordre) VALUES ('" & ComboBox2.Text & " ','" & TextBox3.Text & "','" & civilite & "','" & TextBox7.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox2.Text & "','" & TextBox9.Text & "','" & DateTimePicker1.Text & "','" & DateTimePicker3.Text & "','" & DateTimePicker2.Text & "','" & DateTimePicker4.Text & "','" & DateTimePicker5.Text & "','" & DateTimePicker6.Text & "','" & DateTimePicker7.Text & "','" & TextBox47.Text & "','" & TextBox40.Text & "','" & ComboBox1.Text & "')"
con.Open()
cmd = New SqlCommand(requete, con)
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("saved !")
Catch ex As Exception

End Try

End Sub