Dim pubsConn As OdbcConnection = New OdbcConnection( _
          "DSN=datenbank;Uid=user;Pwd=pass")
        Dim cmd As New OdbcCommand
 
        Dim fs As FileStream
        Dim bw As BinaryWriter
        Dim bufferSize As Integer = 50
        Dim outbyte(bufferSize - 1) As Byte
        Dim retval As Long
        Dim startIndex As Long = 0
        Dim ResultCount As Integer = 0
 
        pubsConn.Open()
        cmd.CommandText = arg
        cmd.Connection = pubsConn
        cmd.CommandType = CommandType.Text
        Dim myReader As OdbcDataReader = cmd.ExecuteReader( _
          CommandBehavior.SequentialAccess)
 
        Do While myReader.Read()
            fs = New FileStream(DocumentsFolder & DocumentID & "." & LTrim(Str( _
              ResultCount)) & "." & Filename & ".pdf", FileMode.OpenOrCreate, _
              FileAccess.Write)
            bw = New BinaryWriter(fs)
 
            startIndex = 0
            retval = myReader.GetBytes(0, startIndex, outbyte, 0, bufferSize)
 
            Do While retval = bufferSize
                bw.Write(outbyte)
                bw.Flush()
                startIndex += bufferSize
                retval = myReader.GetBytes(0, startIndex, outbyte, 0, _
                  bufferSize)
            Loop
 
            If retval > 1 Then
                bw.Write(outbyte, 0, retval - 1)
                bw.Flush()
            End If
 
 
            bw.Close()
            fs.Close()
            ResultCount += 1
        Loop
        myReader.Close()
        pubsConn.Dispose()