اضافه کردن اطلاعات از CheckedListBox به sql server

[rasoulb7]

با سلام به دوستان عزیز
من یه CheckedListBox دارم می خوام کاربر با علامت دار کردن چند آیتم از CheckedListBox کل آن سطر های علامت دار را به ترتیب در پایگاه داده ثبت کنم
لطفا راهنمایی کنید چطور این تکه کد را بنویسم

[rasoulb7]

خودم تونستم بنویسم
البته اول انتخاب شده ها را می برم به یه لیست باکس بعد می فرستم به پایگاه داده
For i = 0 To ListBox1.Items.Count - 1

If PubSqlCon.State = ConnectionState.Open Then PubSqlCon.Close()
PubSqlCom.CommandText = "INSERT INTO tblpesh (magta,reshti,dars,peshneyaz) VALUES ('" & txt_maghta.Text & "','" & txtreshti.Text & "','" & txtdars.Text & "', ' " & ListBox1.Items(i) & " ' )"
PubSqlCom.Connection = PubSqlCon
If PubSqlCon.State = ConnectionState.Closed Then PubSqlCon.Open()
PubSqlCom.ExecuteReader()
If PubSqlCon.State = ConnectionState.Open Then PubSqlCon.Close()
MessageBox.Show("اطلاعات در بانک اطلاعاتی ثبت شد", "ثبت اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.None, MessageBoxDefaultButton.Button3, MessageBoxOptions.RightAlign)
Next