' Deklarationen ----------------------------------------
    Public Structure STRowSpeicher
        Dim Standard() As DataRow
        '  Rest tut nichts zur Sache....
    End Structure
 
    Public Structure STTableSpeicher
        Dim Standard As DataTable
       '  Rest tut nichts zur Sache....
    End Structure
 
  Public Row As STRowSpeicher
  Public Tab As STTableSpeicher
 
' In einerSub ----------------------------------------------
        Dim ID As String = DateiID(Datei)
        Row.Standard = Tab.Standard.Select("BildID='" & ID & "'")
 
         Row.Standard(0)("MiniDatei") = BinExifMini()
' End der Sub
 
 
    Public Function BinExifMini() As Byte()
    ' Exif und Thu sind Strukturen, die die Exif-Informationen eines Bildes 
    ' beinhalten
        OpFile = FreeFile()
 
        FileOpen(OpFile, Exif.Datei, OpenMode.Binary)
        ReDim BinExifMini(Thu.JPGBytes + 1)
        FileGet(OpFile, BinExifMini, Thu.JPGStartOffset)
        FileClose(OpFile)
 
        OpFile = -999
    End Function