Public Sub Ole_Stream(ByVal Tabelle As String, ByVal Field As String, ByVal _
      Ziel As String)
 
        Using con As New OleDbConnection(Glob_Con_Str)
 
            If con.State <> ConnectionState.Open Then
                con.Open()
            End If
 
            Dim sql As String = "SELECT " + Field + " FROM " + Tabelle
 
            Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
            Dim fs As FileStream
            Dim bw As BinaryWriter
            Dim bufferSize As Integer = 300000
            Dim outbyte(300000 - 1) As Byte
            Dim retval As Long
            Dim startIndex As Long = 0
            Dim pub_id As String = ""
            Dim reader As OleDbDataReader = cmd.ExecuteReader( _
              CommandBehavior.SequentialAccess)
            reader.Read()
            fs = New FileStream(Ziel, FileMode.OpenOrCreate, FileAccess.Write)
            bw = New BinaryWriter(fs)
            startIndex = 0
            retval = reader.GetBytes(0, 0, outbyte, 0, bufferSize)
            bw.Write(outbyte)
            bw.Flush()
            bw.Close()
            fs.Close()
            reader.Close()
 
            con.Close()
        End Using
 
    End Sub