Comment stoker une image dans sqlserver

Dim con As New SqlConnection("Initial catalog=tp;data source=localhost;Integrated security=true")
        Dim da As New SqlDataAdapter ("Select id,com,img From tbimage", con)
        Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()

        da.MissingSchemaAction = MissingSchemaAction.AddWithKey

        Dim fs As New FileStream (txtimg.Text, FileMode.OpenOrCreate,  FileAccess.Read)
        Dim MyData(fs.Length) As Byte
        fs.Read(MyData, 0, fs.Length)
        fs.Close()
        con.Open()
        da.Fill(ds, "tbimage")
        Dim myRow As DataRow
        myRow = ds.Tables("tbimage").NewRow()

        myRow("id") = txtid.Text
        myRow("com") = txtcom.Text
        myRow("img") = MyData
        ds.Tables("tbimage").Rows.Add(myRow)
        da.Update(ds, "tbimage")

        fs = Nothing
        MyCB = Nothing
        ds = Nothing
        da = Nothing

        con.Close()
        con = Nothing
        MsgBox("Image bine Enregester")

 Dim con As New SqlConnection("Initial catalog=tp;data source=localhost;Integrated security=true")
        Dim da As New SqlDataAdapter("Select id,com,img From tbimage where id='" & txtid.Text & "'", con)
        Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As DataSet

        ds = New DataSet
        ds.Clear()
        pct1.Image = Nothing
        con.Open()
        da.Fill(ds, "tbimage")
        Dim myRow As DataRow
        myRow = ds.Tables("tbimage").Rows(0)

        Dim MyData() As Byte
        MyData = myRow("img")
        Dim K As Long
        K = UBound(MyData)

        Dim fs As New FileStream(Application.StartupPath & "f.bmp", FileMode.OpenOrCreate,  FileAccess.Write)
        fs.Write(MyData, 0, K)
        fs.Close()

        fs = Nothing
        MyCB = Nothing
        ds = Nothing
        da = Nothing


        con.Close()
        con = Nothing
        pct1.Image = Image.FromFile(Application.StartupPath & "f.bmp")