مساعدة كود استخراج بيانات من قاعدة بيانات sql

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

اخواني انا عندي كود استخراج بيانات من قاعدة بيانات SQL وهو يستخرج ،، لكن لمره وحده فقط ،،،
يعني استخرج المره الاولى لا يظهر خطا وعند استخراجي ب ID ثاني تظهر مشكلة ،، انا حاوت اتآكد انه تم قفل الامر ،، ولاحظت انه يقفل الامر السابق ،،
لكن المشكلة هي فالامر الاول للاستخراج لا يقفل ،،، هذا كود الاستخراج
كود :

Dim cm As New SqlDataAdapter("select * from Table1 where ID=" & Val(ListView1.SelectedItems(0).Text) & "", Conn)

        Dim ds As New DataSet

        ds.Clear()

        TextBox1.[color=#FF0000]DataBindings.Clear[/color]()

        TextBox2.DataBindings.Clear()

        TextBox7.DataBindings.Clear()

        DateTimePicker8.DataBindings.Clear()

        TextBox45.DataBindings.Clear()

        TextBox46.DataBindings.Clear()

        TextBox47.DataBindings.Clear()

        TextBox4.DataBindings.Clear()

        TextBox5.DataBindings.Clear()

        TextBox6.DataBindings.Clear()

        TextBox3.DataBindings.Clear()

        TextBox71.DataBindings.Clear()

        ComboBox1.DataBindings.Clear()

        ComboBox4.DataBindings.Clear()

        TextBox20.DataBindings.Clear()

        TextBox21.DataBindings.Clear()

        TextBox87.DataBindings.Clear()

        ComboBox2.DataBindings.Clear()

        ComboBox5.DataBindings.Clear()

        TextBox22.DataBindings.Clear()

        TextBox23.DataBindings.Clear()

        TextBox88.DataBindings.Clear()

        ComboBox3.DataBindings.Clear()

        ComboBox6.DataBindings.Clear()

        TextBox20.DataBindings.Clear()

        TextBox21.DataBindings.Clear()

        TextBox87.DataBindings.Clear()

        TextBox22.DataBindings.Clear()

        TextBox23.DataBindings.Clear()

        TextBox88.DataBindings.Clear()

        TextBox24.DataBindings.Clear()

        TextBox25.DataBindings.Clear()

        TextBox89.DataBindings.Clear()

        TextBox24.DataBindings.Clear()

        TextBox25.DataBindings.Clear()

        TextBox89.DataBindings.Clear()

        TextBox26.DataBindings.Clear()

        TextBox27.DataBindings.Clear()

        TextBox28.DataBindings.Clear()

        TextBox29.DataBindings.Clear()

        TextBox30.DataBindings.Clear()

        TextBox37.DataBindings.Clear()

        TextBox39.DataBindings.Clear()

        TextBox40.DataBindings.Clear()

        TextBox41.DataBindings.Clear()

        TextBox42.DataBindings.Clear()

        TextBox43.DataBindings.Clear()

        TextBox38.DataBindings.Clear()

        PictureBox2.DataBindings.Clear()

        PictureBox3.DataBindings.Clear()

        PictureBox4.DataBindings.Clear()

        PictureBox5.DataBindings.Clear()

        PictureBox6.DataBindings.Clear()

        PictureBox7.DataBindings.Clear()

        PictureBox8.DataBindings.Clear()

        PictureBox9.DataBindings.Clear()

        PictureBox10.DataBindings.Clear()

        PictureBox11.DataBindings.Clear()

        PictureBox12.DataBindings.Clear()

        PictureBox13.DataBindings.Clear()

        cm.Fill(ds, "Table1")

        TextBox1.DataBindings.Add("text", ds, "Table1.UserName")

        TextBox2.DataBindings.Add("text", ds, "Table1.MobileNumber")

        TextBox7.DataBindings.Add("text", ds, "Table1.Date", True)

        DateTimePicker8.DataBindings.Add("text", ds, "Table1.DateGiveDress", True)

        TextBox45.DataBindings.Add("text", ds, "Table1.Price")

        TextBox46.DataBindings.Add("text", ds, "Table1.Rest")

        TextBox47.DataBindings.Add("text", ds, "Table1.Recipient")

        TextBox4.DataBindings.Add("text", ds, "Table1.NameShop")

        TextBox5.DataBindings.Add("text", ds, "Table1.PlaceShop")

        TextBox6.DataBindings.Add("text", ds, "Table1.UserShop")

        TextBox3.DataBindings.Add("text", ds, "Table1.Email")

        TextBox71.DataBindings.Add("text", ds, "Table1.NumberDresses")

        ComboBox1.DataBindings.Add("text", ds, "Table1.TypeDesign1")

        ComboBox4.DataBindings.Add("text", ds, "Table1.TypePocket1")

        TextBox20.DataBindings.Add("text", ds, "Table1.IDCloth1")

        TextBox21.DataBindings.Add("text", ds, "Table1.LengthM1")

        TextBox87.DataBindings.Add("text", ds, "Table1.LengthY1")

        ComboBox2.DataBindings.Add("text", ds, "Table1.TypeDesign2")

        ComboBox5.DataBindings.Add("text", ds, "Table1.TypePocket2")

        TextBox22.DataBindings.Add("text", ds, "Table1.IDCloth2")

        TextBox23.DataBindings.Add("text", ds, "Table1.LengthM2")

        TextBox88.DataBindings.Add("text", ds, "Table1.LengthY2")

        ComboBox3.DataBindings.Add("text", ds, "Table1.TypeDesign3")

        ComboBox6.DataBindings.Add("text", ds, "Table1.TypePocket3")

        TextBox24.DataBindings.Add("text", ds, "Table1.IDCloth3")

        TextBox25.DataBindings.Add("text", ds, "Table1.LengthM3")

        TextBox89.DataBindings.Add("text", ds, "Table1.LengthY3")

        TextBox26.DataBindings.Add("text", ds, "Table1.LengthDress")

        TextBox27.DataBindings.Add("text", ds, "Table1.DisplayKtf")

        TextBox28.DataBindings.Add("text", ds, "Table1.DisplayDress")

        TextBox29.DataBindings.Add("text", ds, "Table1.LengthKmSadh")

        TextBox30.DataBindings.Add("text", ds, "Table1.LengthKmKbk")

        TextBox37.DataBindings.Add("text", ds, "Table1.RakbhKllab1")

        TextBox39.DataBindings.Add("text", ds, "Table1.RakbhKllab2")

        TextBox40.DataBindings.Add("text", ds, "Table1.RakbhSadh1")

        TextBox41.DataBindings.Add("text", ds, "Table1.RakbhSadh2")

        TextBox42.DataBindings.Add("text", ds, "Table1.DownDress1")

        TextBox43.DataBindings.Add("text", ds, "Table1.DownDress2")

        TextBox38.DataBindings.Add("text", ds, "Table1.Other")

        PictureBox2.DataBindings.Add("image", ds, "Table1.Img1U1", True)

        PictureBox3.DataBindings.Add("image", ds, "Table1.Img2U1", True)

        PictureBox4.DataBindings.Add("image", ds, "Table1.Img3U1", True)

        PictureBox5.DataBindings.Add("image", ds, "Table1.Img4U1", True)

        '

        PictureBox6.DataBindings.Add("image", ds, "Table1.Img1U2", True)

        PictureBox7.DataBindings.Add("image", ds, "Table1.Img2U2", True)

        PictureBox8.DataBindings.Add("image", ds, "Table1.Img3U2", True)

        PictureBox9.DataBindings.Add("image", ds, "Table1.Img4U2", True)

        '

        PictureBox10.DataBindings.Add("image", ds, "Table1.Img1U3", True)

        PictureBox11.DataBindings.Add("image", ds, "Table1.Img2U3", True)

        PictureBox12.DataBindings.Add("image", ds, "Table1.Img3U3", True)

        PictureBox13.DataBindings.Add("image", ds, "Table1.Img4U3", True)

        TextBox20.ReadOnly = True

        TextBox21.ReadOnly = True

        TextBox87.ReadOnly = True

        '

        TextBox22.ReadOnly = True

        TextBox23.ReadOnly = True

        TextBox88.ReadOnly = True

        '

        TextBox24.ReadOnly = True

        TextBox25.ReadOnly = True

        TextBox89.ReadOnly = True

 [COLOR="#FF0000"]       cm.Dispose()

        Conn.Dispose()

        ds.Dispose()

        DataBindings.Clear()

[/COLOR]
هذه صورة المشكلة http://vb4arb.com/vb/uploaded/521_01364922855.png