Как получить выбранные элементы из checkedlistbox и сохранить их в таблице базы данных SQL?

---

Привет, ребята, я делаю приложение, в котором я хочу заполнить свой checkedlistbox из моей таблицы базы данных SQL, а затем сохранить обратно проверенные элементы в той же базе данных, и я могу заполнить его из базы данных, но я получаю ошибку при попытке получить проверенные элементы из checkedlistbox и сохранить их в той же базе данных.





Что я уже пробовал:

Вот мой код:-

Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
    Private pre As DataTable


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CheckedListBox1.DataSource = getdata()
        CheckedListBox1.DisplayMember = "sem1"

    End Sub

    Private Function getdata() As DataTable
        pre = New DataTable
        Dim str As String = "select sem1 from sem"
        Dim connectionString As String = "Server=DESKTOP-V12PTAV ;Database=test ;User Id=sa ;Password=wills8877"
        Using conn As New SqlConnection(connectionString)
            Using adapter As New SqlDataAdapter(str, conn)
                conn.Open()
                adapter.Fill(pre)
                conn.Close()
            End Using
        End Using

        Return pre

    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim SqL As String = "INSERT INTO sem (sem2) " & "VALUES (sem2)"

        Dim connectionString As String = "Server=DESKTOP-V12PTAV ;Database=test ;User Id=sa ;Password=wills8877"
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            Try
                Using cmd As New SqlCommand(SqL, conn)

                    For i As Integer = 0 To CheckedListBox1.Items.Count - 1

                        Dim chkstate As CheckState

                        chkstate = CheckedListBox1.GetItemCheckState(i)

                        If (chkstate = CheckState.Checked) Then

                            cmd.Parameters.AddWithValue("sem2", CheckedListBox1.Items(i))
                            cmd.ExecuteNonQuery()
                            cmd.Parameters.Clear()

                        End If
                    Next
                End Using

                MessageBox.Show("Students saved")

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            conn.Close()
        End Using

    End Sub
End Class

Я получаю эту ошибку, когда выбираю какой-либо элемент и нажимаю кнопку:-
Не существует сопоставления типа объекта system.data.datarowview с известным собственным типом управляемого поставщика.

---