Private Sub Build_ListView()
  Dim intFieldsCnt As Integer       'Anzahl der Felder (Spalten) in der DB
  Dim sngLstVWidth As Single        'Breite des ListView-Steuerelements
  Dim sngColWidth As Single         'Spaltenbreite
 
  Dim i As Integer                  'Zähler
  Dim itmX As ListItem              'ListView-ListItem
 
  sqltxt = "SELECT * from Daten ORDER BY Daten.Interpret, Daten.Titel," & _
    "Daten.Genre;"
  db.sqlÖffnen sqltxt
 
 
  '----------------------------------------------------------------
  'Spalten im ListView-Steuerelement in Abhängigkeit der Anzahl
  ' der Felder im RecordSet gleichmäßig breit machen.
 
  'Anzahl der Felder ermitteln:
  intFieldsCnt = Rs.Fields.Count - 1
 
  'Breite des ListView-Steuerelements ermitteln:
  sngLstVWidth = lstvMain.Width * 0.99
  'Mögliche Spaltenbreite ermitteln:
  sngColWidth = sngLstVWidth / intFieldsCnt
  'Überprüfen, ob die Spaltenbreite sich in einem "vernünftigen"
  '  Bereich befindet.
  '  Wenn nicht, wird eine Breite von 2000 festgelegt.
  If sngColWidth < 2000 Or sngColWidth > 2200 Then
    sngColWidth = 2000
  End If
 
  '----------------------------------------------------------------
  'Spaltenüberschriften hinzufügen...

Private Sub mnupopupCopydisc_Click()
 
...
 
 
 
    For n = 0 To lstvMain.ListItems.Count
      ' Wenn ausgewählt, zur Liste hinzufügen.
      If lstvMain.SelectedItem = True Then
            QuellPfad = ""
            nrl = ""
 
            'Datensatz auswählen
            'nrl = lstvMain.SelectedItem.Selected
            nrl = lstvMain.SelectedItem
            'MsgBox nrl
            sqltxt = "SELECT * from Daten WHERE Nr =" & nrl & ";"
            db.sqlÖffnen sqltxt
 
           ....
      End If
    Next
End sub

Private Sub lstvMain_DblClick()
    Dim nrl As String
    nrl = lstvMain.SelectedItem
 
        editform.Show
        editform.txtA(0) = nrl
        editform.txtA(1).SetFocus
End Sub
......

Sub Form_Load()
 
    ProgressBar1.Visible = False
 
    'ListView-Eigenschaften festlegen
    With lstvMain
      .ColumnHeaders.Clear     ' Spaltenköpfe löschen
      .ListItems.Clear         ' Zeilen löschen
      .View = lvwReport        ' Anzeige = Report
      .FullRowSelect = True    ' Ganze Zeile auswählen
      .LabelEdit = lvwManual   ' Editieren verhindern
      .Font.Size = 8           ' Schriftgröße = 8
    End With
    '-----------------
   Dim Counter As Integer
   Dim Workarea(250) As String
   ProgressBar1.Min = LBound(Workarea)
   ProgressBar1.Max = UBound(Workarea)
   ProgressBar1.Visible = True
 
' Fortschrittswert auf Min setzen.
   ProgressBar1.Value = ProgressBar1.Min
 
' Schleife durch das Datenfeld.
   For Counter = LBound(Workarea) To UBound(Workarea)
      ' Anfangswerte für jedes Element im Datenfeld festlegen.
      Workarea(Counter) = "Anfangswert" & Counter
      ProgressBar1.Value = Counter
   Next Counter
   ProgressBar1.Visible = False
   ProgressBar1.Value = ProgressBar1.Min
 
....