سؤال عن الأداة Listview

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

إخواني الكرام أعضاء هذا الصرح العظيم

أود السؤال عن الأداة ListView

فقد بحثت طويلا في المنتدي و لم أجد ما أريد

عندي مجموعة من الحقول لمجموعة سجلات

أقوم بعرضها من قاعدة البيانات علي الأداة ListView

كل شئ سار جيدا

و لكن عندي مشكلة و هي أني أريد بعد تحديد سجل في الـ ListView أي عند النقر عليه DoubleClick أن يعرض في الفورم

في أماكن مخصصة له TextBox خصصتها لكل حقل

فهل ألي ذلك من سبيل

هذا المثال

Dim sql, i

sql = "SELECT TechnicalSupport.DateOfSupport, TechnicalSupport.UserName1, TechnicalSupport.CommunicateName, TechnicalSupport.Department1, TechnicalSupport.DeviceNumber1, TechnicalSupport.DeviceType1,TechnicalSupport.NameEngineering1, TechnicalSupport.NameEngineering2, TechnicalSupport.DescriptionProblem, TechnicalSupport.SolutionProblem FROM TechnicalSupport WHERE (((TechnicalSupport.AutoMachine)= " & Form1.txt_AutoMachine.Text & "));"

Dim selectQuery As String = sql

OpenMyConn()

Dim myCommand As OleDbCommand = New OleDbCommand(selectQuery, conn)

Dim myReader As OleDbDataReader = myCommand.ExecuteReader()

ListView1.Items.Clear()

i = 0

Do While myReader.Read

i = i + 1

Dim Itm As New ListViewItem

Itm.Text = (i)

Itm.SubItems.Add(myReader!DateOfSupport)

Itm.SubItems.Add(myReader!UserName1)

Itm.SubItems.Add(myReader!CommunicateName)

Itm.SubItems.Add(myReader!Department1)

Itm.SubItems.Add(myReader!DeviceNumber1)

Itm.SubItems.Add(myReader!DeviceType1)

Itm.SubItems.Add(myReader!NameEngineering1)

Itm.SubItems.Add(myReader!NameEngineering2)

Itm.SubItems.Add(myReader!DescriptionProblem)

Itm.SubItems.Add(myReader!SolutionProblem)

ListView1.Items.Add(Itm)

Loop

myReader.Close()

CloseMyConn()

أقوم بجلب ابيانات من قاعدة البيانات و عرضها في الـ ListView

و الآن أريد عرض السجل المختار علي الفورم

أرجو لمن لديه ما يفيدني به ألا يبخل علي

جزاكم الله خيرا