مشكلة في ادخال البينات من ال Listbox الى ال Database

السلام علكم ورحمة الله وبركاته

اخواني انا اوجه مشكلة في عملية ادخال المعلومات الى ال database باستخدام ال listbox

حيث انه لدي listbox بحيث انو مع بداية الصفحة تقوم باسترجاع المعاومات من ال database والى ال listbox باستخدام هذا الكود

 'Select Existed Users In Database

			Dim MyCon1 As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
			Dim StrSql1 As String = "select U_ID from Users where U_Admin=0"
			Dim MyCmd1 As New SqlCommand(StrSql1, MyCon1)

			MyCon1.Open()

			Dim MySqlDataReader1 As SqlDataReader

			MySqlDataReader1 = MyCmd1.ExecuteReader(CommandBehavior.CloseConnection)

			ListBox1.DataSource = MySqlDataReader1
			ListBox1.DataBind()

ومن ثم تخزين المعومات في جدول اخر ومن ضمن هذه المعلومات ال item المختار من ال listbox مع معلومات اخرى

كل شي يعمل جيدا ماعدى ال listbox

باستخدام هذا الكود

Dim MyCon2 As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
				Dim StrSql2 As String = "insert into Messages(M_ID,M_Title,M_status,M_Content,M_Sender,U_ID,M_S_Date,M_O_Date,M_Attach)values(@M_ID,@M_Title,@M_status,@M_Content,@M_Sender,@U_ID,@M_S_Date,@M_O_Date,@M_A
ttach)"
				Dim MyCmd2 As New SqlCommand(StrSql2, MyCon2)
				MyCmd1.CommandType = CommandType.Text


				MyCmd2.Parameters.Add(New SqlParameter("@M_ID", UserIDCounter))
				MyCmd2.Parameters.AddWithValue("@M_Title", TextBox1.Text)
				MyCmd2.Parameters.AddWithValue("@M_Content", TextBox2.Text)
				MyCmd2.Parameters.AddWithValue("@M_Status", "Open")
				MyCmd2.Parameters.AddWithValue("@M_Sender", Session("AID2"))
				MyCmd2.Parameters.AddWithValue("@U_ID", ListBox1.SelectedItem.Text)
				MyCmd2.Parameters.AddWithValue("@M_S_Date", DateTime.Now)
				MyCmd2.Parameters.AddWithValue("@M_O_Date", DateTime.Now)

				'Load FileUpload's InputStream into Byte array
				Dim imageBytes(fileUpload1.PostedFile.InputStream.Length) As Byte
				fileUpload1.PostedFile.InputStream.Read(imageBytes, 0, imageBytes.Length)
				MyCmd2.Parameters.AddWithValue("@M_Attach", imageBytes)


				MyCon2.Open()

				MyCmd2.ExecuteNonQuery()

				MyCon2.Close()