[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
عندي مشكلة حاولت حلها على مدى أيام وكني عجزت عن حلها وهي يوجد لدي CheckedListBox1   مرتبط مع جدول يغذيه بالبيانات ما أريده هو أن يتم حفظ  Items  التي إخترتها في جدول آخر هو Main_Table  
المشكلة أنه يتم حفظ الـ Item  الأخير فقط ولايحفظ العناصر المحددة قبله مع أنيي قمت بعمل Loop   علماً بأن العنصر المطلوب حفظه من checkedListBox1  هو عنصر Job 
أتمنى سؤالي يكون واضح ولكم خالص شكري 
الكود المستخدم هو 

        Dim i1 As Integer

        For i1 = 0 To CheckedListBox1.Items.Count - 1

            If CheckedListBox1.GetItemChecked(i1) Then

                Dim sqlq As String = "insert into Main_Table values(@Personal_Num,@Student_Name,@Job)"

                        Dim sqlcmd As New SqlCommand(sqlq, Sqlcon)

                        sqlcmd.Parameters.Add(New SqlParameter("@Personal_Num", SqlDbType.NVarChar, 15) With {.Value = TextBox1.Text})

                        sqlcmd.Parameters.Add(New SqlParameter("@Student_Name", SqlDbType.NVarChar, 80) With {.Value = TextBox2.Text})

                sqlcmd.Parameters.Add(New SqlParameter("@Job", SqlDbType.NVarChar, 50) With {.Value = CheckedListBox1.GetItemText(CheckedListBox1.SelectedItem)})

                     

                        Sqlcon.Open()

                        sqlcmd.ExecuteNonQuery()

                        Sqlcon.Close()

                    End If

                Next