Sub Datenbankschreiben()
        Dim Da As New OleDbDataAdapter
        Dim Cn As New OleDbConnection(stCn)
        Dim Dr As DataRow
        Dim Ds As New DataSet
        Dim Ta As New DataTable("Hersteller")
 
        Dim SourceFilePath As String = "D:\logo.gif"
        Dim fs As New System.IO.FileStream(SourceFilePath, IO.FileMode.Open, _
          IO.FileAccess.Read)
        Dim picture(CInt(fs.Length() - 1)) As Byte
 
Da = New OleDbDataAdapter("SELECT * FROM Hersteller", Cn)
        Dim Cb As New OleDbCommandBuilder(Da)
        Da.Fill(Ds, "Hersteller")
        Ta = Ds.Tables("Hersteller")
        Dr = Ta.NewRow()
        With Dr
            .Item("Bild") = picture
        End With
        fs.Close()
        Ta.Rows.Add(Dr)
        Da.Update(Ds, "Hersteller")
        Cn.Close()
 
    End Sub

Sub DatenbankLaden()
        Dim dvBikeData As New DataView
        Dim Da As New OleDbDataAdapter("Select Bild FROM Hersteller", stCn)
        Dim Ta As New DataTable("Hersteller")
 
        Try
            objConnection.Open()
            Da.Fill(Ta)
            dvBikeData = New DataView(Ta)
 
            dgvBikeData.DataSource = dvBikeData
            objConnection.Close()
        Catch ex As DataException
            MsgBox(ex.ToString)
        End Try
    End Sub