إضافة البيانات من Listbox إلى قاعدة البيانات

لا أعرف بنية الجدول المخصص لاستقبال المعلومات على قاعدة البيانات و لكن الكود التالي يفترض أنه :

ID : معرف السطر BigInt و المفتاح الرئيسي للجدول

Symbol : NChar(3)

Company : NChar(32)

		' كائن ربط الإتصال
		Dim con As New SqlClient.SqlConnection("connection string")
		' كائن أمر سكوال سيرفر
		Dim cmd As SqlClient.SqlCommand = con.CreateCommand()
		' جملة سكوال
		cmd.CommandText = "INSERT INTO table_name (Symbol, Company) VALUES(@Symbol, @Company)"
		' بارامتر السامبول الجديد
		Dim prmSymbol As SqlClient.SqlParameter = cmd.CreateParameter()
		prmSymbol.ParameterName = "@Symbol"
		prmSymbol.Size = 3
		prmSymbol.SqlDbType = SqlDbType.NChar
		cmd.Parameters.Add(prmSymbol)
		' بارامتر اسم الشركة
		Dim prmCompany As SqlClient.SqlParameter = cmd.CreateParameter()
		prmCompany.ParameterName = "@Company"
		prmCompany.Size = 32
		prmCompany.SqlDbType = SqlDbType.NChar
		cmd.Parameters.Add(prmCompany)

		' فتح قناة الإتصال بـ سكوال سيرفر
		con.Open()
		' زيادة الأسطر
		For i As Integer = 0 To ListBox1.Items.Count-2 Step 2
			' جمع عنصرين من اللائحة في سطر واحد على قاعدة البيانات
			prmSymbol.SqlValue = ListBox1.Items(i).ToString()
			prmCompany.SqlValue = ListBox1.Items(i + 1).ToString()
			cmd.ExecuteNonQuery()
		Next
		' غلق قناة الإتصال بعد نهاية العمل
		con.Close()

تحياتي...