[العزابي]

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

مساكم الله بالخير أخواني 

لدي ListView وفيه أربع حقول .
نوعها نصي بما فيها حقل الصور .
 ويتم الحفظ فيه بشكل رابط في مجلد pic داخل البرنامج

كما في الصورة التالية




مشكلتي الأن 

أريده أن يظهر لي صورة بدل من رابط الصورة

كود الإظافة

كود :

Try
           My.Computer.FileSystem.CopyFile(TextBox34.Text, Application.StartupPath & "\pic\" & IO.Path.GetFileName(TextBox34.Text))
           Dim AddEditCmd As New OleDbCommand
           If Not String.IsNullOrEmpty(Label1.Text) AndAlso Not String.IsNullOrEmpty(TextBox33.Text) AndAlso Not String.IsNullOrEmpty(TextBox32.Text) AndAlso Not String.IsNullOrEmpty(TextBox31.Text) Then

               con.Open()
               AddEditCmd.Connection = con
               AddEditCmd.CommandType = CommandType.Text
               AddEditCmd.Parameters.Clear()
               AddEditCmd.Parameters.AddWithValue("@E_id", Label1.Text)
               AddEditCmd.Parameters.AddWithValue("@E_a", TextBox33.Text)
               AddEditCmd.Parameters.AddWithValue("@E_b", TextBox32.Text)
               AddEditCmd.Parameters.AddWithValue("@E_c", TextBox31.Text)
               AddEditCmd.Parameters.AddWithValue("@E_f", TextBox34.Text)
               AddEditCmd.CommandText = "INSERT INTO Tab6([E_id],[E_a],[E_b],[E_c],[E_f]) VALUES(@E_id,@E_a,@E_b,@E_c,'" & IO.Path.GetFileName(TextBox34.Text) & "')"
           End If
           AddEditCmd.ExecuteNonQuery()
           AddEditCmd.Dispose()
           con.Close()

وكود عرض ListView

كود :

   Dim Itm As ListViewItem

           For a As Integer = 0 To data__Leave2.Tables("Tab6").Rows.Count - 1

               Itm = ListView4.Items.Add(data__Leave2.Tables("Tab6").Rows(a).Item("E_a").ToString)
               Itm.Tag = data__Leave2.Tables("Tab6").Rows(a).Item("ID")
               Itm.SubItems.Add(data__Leave2.Tables("Tab6").Rows(a).Item("E_b").ToString)
               Itm.SubItems.Add(data__Leave2.Tables("Tab6").Rows(a).Item("E_c").ToString)
               Itm.SubItems.Add(data__Leave2.Tables("Tab6").Rows(a).Item("ID").ToString)
               Itm.SubItems.Add(data__Leave2.Tables("Tab6").Rows(a).Item("E_f").ToString)

           Next

وشكراً