Dim fs As New IO.FileStream( _
        Application.StartupPath & "\beispiel.jpg", _
        IO.FileMode.Open, _
        IO.FileAccess.Read)
 
        Dim buff(fs.Length - 1) As Byte
 
        fs.Read(buff, 0, buff.Length)
        fs.Close()
 
        Dim co As OleDbConnection
        Dim cmd As OleDbCommand
        Dim p As OleDbParameter
 
        co = New OleDbConnection(CoStr)
        cmd = New OleDbCommand()
 
        cmd.Connection = co
        cmd.CommandText = "INSERT INTO tab1 (Pic) VALUES (@pic)"
 
        p = cmd.Parameters.Add("@Pic", OleDbType.VarBinary)
        p.Direction = ParameterDirection.Input
        p.Size = buff.Length
        p.Value = buff
 
        co.Open()
        Try
            Dim intCreated = cmd.ExecuteNonQuery()
            Debug.WriteLine(intCreated & " Datensätze erzeugt")
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        Finally
            co.Close()
        End Try

        Dim intId%
        intId = 1
 
        Dim co As New OleDbConnection(CoStr)
        Dim cmd As New OleDbCommand()
        Dim dr As OleDbDataReader
        Dim buff As Byte()
 
        cmd.Connection = co
        cmd.CommandText = "SELECT Pic FROM tab1 WHERE id=" & intId
 
        co.Open()
        Try
            dr = cmd.ExecuteReader(CommandBehavior.Default)
            Try
                If dr.Read Then
                    buff = dr("Pic")
                Else
                    MsgBox("Es ist kein Datensatz vorhanden mit der ID " & _
                      intId)
                    dr.Close()
                    co.Close()
                    Return
                End If
            Catch ex As Exception
                Debug.WriteLine(ex.ToString)
                Return
            Finally
                dr.Close()
            End Try
        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
            Return
        Finally
            co.Close()
        End Try
 
        'Es wird voraussgestzt das die gelesenen Bytes ursprünglich von
        'einem JPEG stammten
        Dim fs As New IO.FileStream( _
        Application.StartupPath & "\outpic.jpg", _
        IO.FileMode.Create, _
        IO.FileAccess.Write)
 
        fs.Write(buff, 0, buff.Length)
        fs.Close()