مشكلة عند إضافة العنصر المحدد في ListBox إلى TextBox

test.ziptest.zipأعزائي المبرمجين

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

واجهتني مشكلة عند إضافة العنصر المختار من قائمة ListBox1 التي قمت بتعبئتها بواسطة قاعدة البيانات

إلى صندوق نص Textbox1

الكود

Public Class Form1
	Dim adpa As New OleDb.OleDbDataAdapter
	Dim dsa As New DataSet
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Try
			If CON.State = ConnectionState.Closed Then
				CON.Open()
			End If
			adpa = New OleDb.OleDbDataAdapter("select * from area", CON)
			dsa = New DataSet
			adpa.Fill(dsa, "area")
			If dsa.Tables("area").Rows.Count > 0 Then
				ListBox1.DataSource = dsa.Tables("area")
				ListBox1.DisplayMember = "name_area"
				ListBox1.ValueMember = "no_area"
				ListBox1.SelectedItem = 0
				CON.Close()


			End If
			If CON.State = ConnectionState.Open Then
				CON.Close()
			End If
		Catch

		End Try

	End Sub

	Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
		' هنا تظهر المشكلة
		TextBox1.Text = ListBox1.SelectedItem.ToString

	End Sub
End Class

المشكلة واضحة في الملف المرفق