مشكلة في طريقة كود - نسخة قابلة للطباعة

[COLOR="#FF0000"]
لا اخي ليس عند الاضافة الحمد لله حليناها ،، بل عند الفتح ،، وهذا كود مشروعي كامل للفتح
[COLOR="#696969"]
كود :

Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick

        Me.NewAdd()

                'MsgBox(Me.ListView2.SelectedItems(0).Text)

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

        Dim ds As New DataSet

        ds.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")

        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")

        TextBox8.DataBindings.Add("text", ds, "Table1.ColorDress1")

        TextBox9.DataBindings.Add("text", ds, "Table1.TypeCloth1")

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

        TextBox11.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")

        TextBox15.DataBindings.Add("text", ds, "Table1.ColorDress2")

        TextBox14.DataBindings.Add("text", ds, "Table1.TypeCloth2")

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

        TextBox12.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")

        TextBox19.DataBindings.Add("text", ds, "Table1.ColorDress3")

        TextBox18.DataBindings.Add("text", ds, "Table1.TypeCloth3")

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

        TextBox16.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")

        TextBox31.DataBindings.Add("text", ds, "Table1.DisplayKmSadh1")

        TextBox32.DataBindings.Add("text", ds, "Table1.DisplayKmSadh2")

        TextBox33.DataBindings.Add("text", ds, "Table1.DisplayKmSadh3")

        TextBox34.DataBindings.Add("text", ds, "Table1.DisplayKmKbk1")

        TextBox35.DataBindings.Add("text", ds, "Table1.DisplayKmKbk2")

        TextBox36.DataBindings.Add("text", ds, "Table1.DisplayKmKbk3")

        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")

        TextBox44.DataBindings.Add("text", ds, "Table1.LengthKbzor")

        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)

    End Sub
[/COLOR]

عند الفتح للمره الاولى ،، يعمل ،، لكن اذا جئت واردت فتح اي عميل اخر لا يفتح ويظهر هذه الرسالة
http://im32.gulfup.com/hFYw7.png

[/COLOR]