Dim mdbdaten As Database
Dim dy2 As Recordset
 
Private Sub Form_Load()
On Error Resume Next
                  Call laden
End Sub
 
Sub laden()
On Error Resume Next
                     Set mdbdaten = OpenDatabase(einstell.pathtxt.Text)
                     Set dy2 = mdbdaten.OpenRecordset("manager", dbOpenTable)
 
    With StatusBar1.Panels(1)
    .Text = "Anzahl der gespeicherten Alben: " & dy2.RecordCount
    End With
 
                ListView1.ColumnHeaders.Add , "Col1", "Interpret / Künstler" 
                ListView1.ColumnHeaders.Add , "Col2", "Album" 
                ListView1.ColumnHeaders.Add , "Col3", "Jahr" 
 
Dim itmX As ListItem
 
                  ListView1.ListItems.Clear
 
       If dy2.EOF And dy2.BOF Then
 
           Exit Sub
      End If
 
 
While Not dy2.EOF
           If dy2!anrede = "Männlich" Then
                        Set itmX = ListView1.ListItems.Add(, "N" & CStr( _
                          dy2!nr), CStr(dy2("[interpret]")), 1, 1)
                         ElseIf dy2!anrede = "Weiblich" Then
                          Set itmX = ListView1.ListItems.Add(, "N" & CStr( _
                            dy2!nr), CStr(dy2("[interpret]")), 1, 2)
End If
 
'NullFelder / Fehler ausschalten
Dim Vn As String
Dim n
               n = dy2!album
               If IsNull(n) Then Vn = "." Else Vn = n
 
Dim jahr As String
Dim M
                   M = dy2!jahr
                    If IsNull(M) Then jahr = "." Else jahr = M
 
           itmX.SubItems(1) = Vn
           itmX.SubItems(2) = jahr
 
            dy2.MoveNext
            Wend
           dy2.MoveFirst
 
           dy2.Close
 
            Me.MousePointer = vbNormal
End Sub