Simpan CheckBox Items ke Database Access Vb.net

End of statement expected.ini masksudnya apa bang hehhe

saya kesulitan menyimpan checkbox item ke database access.saya pake checkbox lebih dari satu.

 Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'cara save checkbox ke data base
If CB10k.Checked Then
ongkirTotal = CB10k.Text
Else
ongkirTotal = ""
End If
If CB15k.Checked Then
ongkirTotal = CB15k.Text
Else
ongkirTotal = ""
End If
If CB5k.Checked Then
ongkirTotal = CB5k.Text
Else
ongkirReguler = ""

End If
If CB20k.Checked Then
ongkirTotal = CB20k.Text
Else
ongkirTotal = ""
End If
If CBbatu.Checked Then
ongkirReguler = CBbatu.Text
Else
ongkirReguler = ""

End If
If CBbatu1.Checked Then
ongkirReguler = CBbatu1.Text
Else
ongkirReguler = ""
End If

If CBbatu2.Checked Then
ongkirReguler = CBbatu2.Text
Else
ongkirReguler = ""
End If

If CBmalang.Checked Then
ongkirReguler = CBmalang.Text
Else
ongkirReguler = ""

End If
If CBmalang1.Checked Then
ongkirReguler = CBmalang1.Text
Else
ongkirReguler = ""

End If

If CBmalang2.Checked Then
ongkirReguler = CBmalang2.Text
Else
ongkirReguler = ""

End If
If CBsingosari.Checked Then
ongkirReguler = CBsingosari.Text
Else
ongkirReguler = ""

End If
If CBsingosari1.Checked Then
ongkirReguler = CBsingosari1.Text
Else
ongkirReguler = ""

End If
If CBsingosari2.Checked Then
ongkirReguler = CBsingosari2.Text
Else
ongkirReguler = ""
End If

Conn.Open()
cmd.Connection = Conn
cmd.CommandType = CommandType.Text
cmd.CommandType = "insert into TS values ('" & txtPelanggan.Text & "','" & txtAlamat.Text & "','" & txtTelepon.Text & "','" & Format(DateTimePicker1.Value, "dd-mm-yyyy") & "','" & cmbViaOrder.Text & "','" & cmbNamaOperator.Text & "','" & cmbNamaShipper.Text "','" & ongkirReguler & "','" & ongkirTotal & "','" & TextBox1.Text & "')"
cmd.ExecuteNonQuery()
End Sub
End Class