Sub Bilder_laden()
On Error Resume Next
 
 
   ImageList3.ImageHeight = 246
   ImageList3.ImageWidth = 164
 
 
   ImageList4.ImageHeight = 70
   ImageList4.ImageWidth = 55
 
 
   Dim file As String, Path As String
 
   'Pfad mit JPG-Bilddateien
   Path = "C:\Dokumente und Einstellungen\Sophus\Desktop\Bilder\"
 
   'Bilder in Imagelist laden
   file = Dir(Path & "*.jpg")
   Do While file <> ""
     Image1 = LoadPicture(Path & file)
     ImageList3.ListImages.Add , Path & file, Image1
     ImageList4.ListImages.Add , Path & file, Picture2
 
     file = Dir
 
   Loop
 
 
   'Filenamen ins Listview eintragen und per Schlüssel
   'auf die ImageList verweisen
   ListView1.Icons = ImageList3
   ListView1.SmallIcons = ImageList4
 
 
   file = Dir(Path & "*.jpg")
   Do While file <> ""
        Image1 = LoadPicture(Path & file)
        file = mid(file, 1, Len(file) - 4)
        ImageList3.ListImages.Add , "x" & file, Image1
        file = Dir
    Loop
 
 
Call movie_Laden_Daten
 
End Sub

 Sub movie_Laden_Daten()
 On Error Resume Next
 Dim dy2 As Recordset
 Dim mdbdbfile As Database
 
'Dim DefaultKey As String, imagekey As String
'DefaultKey = "default"
 
    Set mdbdbfile = OpenDatabase(midi.sKeyNames1.Text)
    Set dy2 = mdbdbfile.OpenRecordset("film", dbOpenTable)
    With StatusBar1.Panels(1)
    .Text = "Anzahl der gespeicherten Filme: " & dy2.RecordCount
 
 ListView1.ColumnHeaders.Add , "Col0", "ID" 
 ListView1.ColumnHeaders.Add , "Col1", "Filmtitel" 
 ListView1.ColumnHeaders.Add , "Col2", "Originaltitel" 
 ListView1.ColumnHeaders.Add , "Col3", "Regie" 
 ListView1.ColumnHeaders.Add , "Col4", "Genre" 
 ListView1.ColumnHeaders.Add , "Col5", "Jahr"
 
 Dim itmX As ListItem
 
        ListView1.ListItems.Clear
 
   While Not dy2.EOF
 
         Set itmX = ListView1.ListItems.Add(, "x" & CStr(dy2!Id), CStr(dy2( _
           "[ID]") & " " & "  " & (dy2("[Title]") & "  (" & (dy2( _
           "[originaltitle]") & ")"))), "x" & CStr(dy2!Id))
 
           Dim ti As String
           Dim I As String
             I = dy2!Title
             If IsNull(n) Then ti = "." Else ti = I
 
          Dim org As String
          Dim og As String
            og = dy2!originaltitle
             If IsNull(n) Then org = "." Else org = og
 
          Dim reg As String
          Dim nvv As String
            nvv = dy2!regie
              If IsNull(n) Then reg = "." Else reg = nvv
 
         Dim genr As String
         Dim M As String
            M = dy2!genre
             If IsNull(M) Then genr = "." Else genr = M
 
        Dim yr As String
        Dim g As String
           g = dy2!Year
            If IsNull(n) Then yr = "." Else yr = g
 
         itmX.SubItems(1) = ti
         itmX.SubItems(2) = org
         itmX.SubItems(3) = reg
         itmX.SubItems(4) = genr
         itmX.SubItems(5) = yr
 
         dy2.MoveNext
 
            Wend
 
         dy2.MoveFirst
 
     dy2.Close
 
  End With
 
End Sub