'Konstanten die zum abrufen von Anhängen in der Datenbank benötigt werden
Const m_strFieldFileName As String = "FileName" ' Der Name der angehängten Datei
Const m_strFieldFileType As String = "FileType" ' Die Dateiendung der 
' angehängten Datei
Const m_strFieldFileData As String = "FileData" ' Der Inhalt der angehängten 
' Datei (binär)
 
Shared dbEngine As New Dao.DBEngine
Shared db As Dao.Database
 
Shared rsMitglieder As Dao.Recordset
Shared rsMitglieder2 As Dao.Recordset2
Shared rsMitgliederField2 As Dao.Field2
 
db = dbEngine.OpenDatabase("Mitglieder.accdb", _
  Microsoft.Office.Interop.Access.Dao.RecordsetTypeEnum.dbOpenSnapshot)
rsMitglieder = db.OpenRecordset("SELECT ID, Name, Bezahlt, Anwesend, Datum," & _
"Bild FROM Mitglieder")
 
While Not rsMitglieder.EOF
  rsMitglieder2 = rsMitglieder.Fields("Bild").Value
 
    While Not rsMitglieder2.EOF
      rsMitgliederField2 = rsMitglieder2.Fields(m_strFieldFileData)
 
      Dim ba(rsMitgliederField2.FieldSize - 20) As Byte
      Array.Copy(rsMitgliederField2.Value, 20, ba, 0, _
        rsMitgliederField2.FieldSize - 20)
 
      Dim lvi As New ListViewItem
      lvi.Text = rsMitglieder.Fields("Name").Value
      Main.ImageList1.Images.Add(Bilder.ByteArray2Bitmap(ba))
      lvi.ImageIndex = Main.ImageList1.Images.Count - 1
 
      rsMitglieder2.MoveNext()
    End While
 
  rsMitglieder.MoveNext()
End While
 
Shared Function ByteArray2Bitmap(ByVal ByteArray As Byte()) As Bitmap
  Using ms = New MemoryStream(ByteArray)
    Dim img As Bitmap = DirectCast(Image.FromStream(ms), Bitmap)
    Return img
  End Using
End Function

rsMitgliederField2.SaveToFile(rsMitglieder2.Fields(m_strFieldFileName).Value))

http://coolzero.aucb.de