Private Sub Form_Load()
Call dbverbinden
lblDateianzahl.Caption = search("", "", "A", frmDatabase, frmDatabase.flexmp3) _
  & " Dateien gefunden, die mit A beginngen"
Call stopmp3(frmDatabase.lblPlayer, frmDatabase.lblreminetime)
 
'Erstellen der Listview für die playlist
    With playlist
        .ColumnHeaders.Add , , "Num:", 700
        .ColumnHeaders.Add , , "Artist:", 1900
        .ColumnHeaders.Add , , "Titel:", 1900
        .ColumnHeaders.Add , , "dosname:", 1900
        .ColumnHeaders.Add , , "pfad:", 1900
        .View = lvwReport
        .FullRowSelect = True
    End With
End Sub