J'ai un probléme au nevou de mon requete

Bonjour,je fais une application de gestion de reglement

je fais un botton valider qui va envoyer les donnees a la base de donnees
voici le code :

cmd.CommandText = "INSERT INTO reglement(code_reglement,code_facture,date_reglement,mantant_reglement,type_reglement,typed'opération)values('" & txtcode_Reg_c.Text & "','" & txtcode_fac_c.Text & "','" & DateTimePicker1.Value & "','" & txtmant_reg_c.Text & "','" & CheckBox1.Text & "','" & ComboBox1.SelectedItem & "')"
cmd.Connection = cn
da = New OleDbDataAdapter(cmd)
ds = New DataSet("reglement")
da.Fill(ds, "reglement")
ds.Tables("reglement").Rows.Add()
Dim i As Integer = ds.Tables("reglement").Rows.Count - 1
ds.Tables("reglement").Rows(i).Item(1) = Me.txtcode_Reg_c.Text
ds.Tables("reglement").Rows(i).Item(2) = Me.txtcode_fac_c.Text
ds.Tables("reglement").Rows(i).Item(3) = Me.DateTimePicker1.Value
ds.Tables("reglement").Rows(i).Item(4) = Me.txtmant_reg_c.Text
ds.Tables("reglement").Rows(i).Item(5) = Me.CheckBox1.Text
ds.Tables("reglement").Rows(i).Item(6) = Me.ComboBox1.SelectedItem
da.Update(ds, "reglement")
qund j'execut l'application le programme lance une exeption : Erreur de syntaxe dans l'instruction INSERT INTO.