ADO.NET & SQL SERVER mode déconnecté

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

        '--
    End Sub

dg.datasource=ds.table("NomTable")

dbpf = DbProviderFactories.GetFactory("System.Data.SqlClient")
        ocon = dbpf.CreateConnection
        ocon.ConnectionString = "Server=ELBAHI-ED56503A\SQLEXPRESS;database=personnes;integrated security=true"
        oda = dbpf.CreateDataAdapter
        oda.SelectCommand = ocon.CreateCommand
        oda.SelectCommand.CommandText = "select * from pers"
        ods = New DataSet
        oda.Fill(ods, "pers")

Private Sub enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enregistrer.Click



        If n = 1 Then
'Cas d'ajout
            Dim dlg As OpenFileDialog = New OpenFileDialog()
            dlg.Filter = "All Pictures|*.bmp;*.gif;*.jpg|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg"
            Dim dr As DataRow = ods.Tables("pers").NewRow
            dr("id") = TxtID.Text
            dr("nom") = TxtNom.Text
            dr("prénom") = TxtPrenom.Text
            TxtdateNaissance.Text = DateTimePicker1.Text
            dr("dateNaissance") = TxtdateNaissance.Text

            'If (dlg.ShowDialog = DialogResult.OK) Then


            '    PictureBox1.Image = New Bitmap(dlg.FileName)
            '    Dim name As String = dlg.FileName.Substring(dlg.FileName.LastIndexOf("\") + 1, dlg.FileName.Length - dlg.FileName.LastIndexOf("\") - 1)
            'End If

            'Dim mstr As MemoryStream = New MemoryStream
            'PictureBox1.Image.Save(mstr, PictureBox1.Image.RawFormat)
            'Dim arrImage() As Byte = mstr.GetBuffer()
            'dim cmd as string = "insert into pers (PictureName, Picture) values (@PName, @Pic)";




            'dr("picture") = PictureBox1
            ods.Tables("pers").Rows.Add(dr)
            'ods.AcceptChanges()
            nbrLignes = ods.Tables("pers").Rows.Count
            MsgBox("Lenombre des lignes après l'ajout : " & nbrLignes)
            MsgBox("L'ajout est effectué !!")
        ElseIf n = 2 Then
            Dim r = MessageBox.Show("êtes vous sûr de vouloir supprimer cette personne??", "Confirmation suppression", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
            If r = vbYes Then
                ods.Tables("pers").Rows(i).Delete()
                MsgBox("Suppression effectué")
            Else
                MsgBox("Suppression annulée")
            End If
        ElseIf n = 3 Then
            Dim rep = MessageBox.Show("êtes vous sûr de vouloir modifier cette personne??", "Confirmation de modification", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If rep = vbYes Then
                ods.Tables("pers").Rows(i)(0) = TxtID.Text
                ods.Tables("pers").Rows(i)(1) = TxtNom.Text()
                ods.Tables("pers").Rows(i)(2) = TxtPrenom.Text
                ods.Tables("pers").Rows(i)(3) = TxtdateNaissance.Text

            Else
                MsgBox("Modification annulée")

            End If
            Dim cas As String = ods.Tables("pers").Rows(i).RowState.ToString
            MsgBox(cas)
        End If
    End Sub

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

        '--
    End Sub