Checkedlistbox for insert multiple selected checkboxes to database

See more:

VB

SQL

Hello i am new to working on vb.net 2008, want to know how to insert multiple selected checkboxes value from checkedlistbox in vb.net 2008 to sql server 2005 database. so i have two table in whiche fields name are same such as (Module_ID,Module_Name) and Tables name are 1st one(Modules), 2nd (ruff_Module)... so in First table add some subjects name with number like (1,Math and so on) and second table is empty ... now my question is that i want to add these selected modules from table one which are load into checkedlistbox control , when i select multiple checkboxes they insert to 2nd table just one click on insert button.... please help me out.... MY CODE IS :

Imports System.Data.SqlClient
Imports System.Text
Public Class Form1
    Dim cn As New SqlConnection("Data Source=NIDA-PC\SQLEXPRESS;Initial Catalog=Exam_Data;Integrated Security=True")
    Dim da As New SqlDataAdapter()
    Dim ds As New DataSet
    Dim dr As SqlDataReader
    Dim qry As String
    Dim cmd As New SqlCommand
    Dim qry1 As String
    Dim qry2 As String
    Dim dt As New DataTable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        qry = "Select Module_ID,Module_Name from Modules"
        da = New SqlDataAdapter(qry, cn)
        ds = New DataSet()
        da.Fill(ds, "tab")
        CheckedListBox1.DataSource = ds.Tables("tab")
        CheckedListBox1.DisplayMember = "Module_Name"
        CheckedListBox1.ValueMember = "Module_ID"
        CheckedListBox1.Text = ""

 End Sub

            
Public Sub Stringbuilder()
        Try
            Dim sql As New StringBuilder("Insert into Modules (Module_Name) VALUES ")
            For Each c In CheckedListBox1.CheckedIndices
                Dim rowView As DataRowView = CheckedListBox1.Items(c)
                Dim value = rowView("Module_Name").ToString()
                sql.Append("('" & value & "')")
                sql.Length -= 1
                cmd.CommandText = sql.ToString()
                cmd.Connection = cn
                cn.Open()
                Dim rowsInserted = cmd.ExecuteNonQuery()
                MsgBox("inserted " & rowsInserted & "rows", MsgBoxStyle.OkOnly)
            Next



        Catch ex As Exception
            MsgBox("Error", MsgBoxStyle.Critical)
        End Try
        cn.Close()
    End Sub

    Stringbuilder()
    End Sub
End Class

and there is showing one error and the error is : Incorrect syntax near 'Math'.

Math is the module name which is load from ist table into checkedlistbox.....