مشكلة في تحديد اكثر من صنف

السلام عليكم

انا مشروعي موقع طلب بيتزا عبر الانترنت ....

يستطيع الزبون ان يطلب اكثر من نوع بيتزا واحد و يستطيع ايضا اختيار اكثر من حجم في نفس الوقت

لكن للأسف

اذا اختار الزبون اكثر من نوع بيتزا استطعت حل مشكلتها , لكني لم استطع حل مشكلة ان يستطيع الزبون ان يختار اكثر من حجم ... كل ما عدلت على الكود يفشل , و ظهرت لي مشكلة جديده وهو يعطيني بأنه فشل التحويل من سترنج الى انتجر

سأرفق لكم الكود و الصور

 Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Alex\Desktop\Gradproject1\App_Data\pos-data.mdf;Integrated Security=True;User Instance=True")
            Dim cmd As New SqlCommand()
            cmd.Connection = con


            With cmd
                .Parameters.Add("@Pizza_no", Data.SqlDbType.Int)
                .Parameters.Add("@Pizza_Quantity", Data.SqlDbType.Int)
                .Parameters.Add("@Pizza_Size", Data.SqlDbType.Int)

            End With

            ' بداية كود ادخال البيتزا الحارة 
            If CheckBoxList36.Enabled = True Then
                Dim a As Integer
                For a = 0 To CheckBoxList2.Items.Count - 1
                    cmd.CommandType = Data.CommandType.StoredProcedure
                    cmd.CommandText = "StoredProcedure3"
                    If CheckBoxList2.Items(a).Selected = True Then
                        cmd.Parameters("@Pizza_no").Value = CheckBoxList36.SelectedValue
                        cmd.Parameters("@Pizza_Quantity").Value = DropDownList0.SelectedValue
                        cmd.Parameters("@Pizza_Size").Value = CheckBoxList2.SelectedValue
                        con.Open()
                        cmd.ExecuteNonQuery()
                        con.Close()
                    End If

                    Dim b As Integer
                    For b = 1 To CheckBoxList2.Items.Count - 2
                        cmd.CommandType = Data.CommandType.StoredProcedure
                        cmd.CommandText = "StoredProcedure3"
                        If CheckBoxList2.Items(b).Selected = True Then
                            cmd.Parameters("@Pizza_no").Value = CheckBoxList36.SelectedValue
                            cmd.Parameters("@Pizza_Quantity").Value = DropDownList36.SelectedValue
                            cmd.Parameters("@Pizza_Size").Value = CheckBoxList2.SelectedValue
                            con.Open()
                            cmd.ExecuteNonQuery()
                            con.Close()
                        End If
                    Next b
                    Dim c As Integer
                    For c = 0 To CheckBoxList2.Items.Count - 3
                        cmd.CommandType = Data.CommandType.StoredProcedure
                        cmd.CommandText = "StoredProcedure3"
                        If CheckBoxList2.Items(c).Selected = True Then
                            cmd.Parameters("@Pizza_no").Value = CheckBoxList36.SelectedValue
                            cmd.Parameters("@Pizza_Quantity").Value = jauni.SelectedValue
                            cmd.Parameters("@Pizza_Size").Value = CheckBoxList2.SelectedValue
                            con.Open()
                            cmd.ExecuteNonQuery()
                            con.Close()
                        End If
                    Next c
                Next a

            End If
            'نهاية كود البيتزا الحارة

صورة الخطأ الظاهر