Private Sub FahrtK_anzeigen_ADO(ByVal dbFilename As String, _
  ByVal dbTable As String)
 
'Dim SQL As String
'Dim sDatumVon As Date
'Dim sDatumBis As Date
 
' Zeitraum
'Fahrtk_anz_Dat1.Date = "sDatumVon"
'Fahrtk_anz_Dat2.Date = "sDatumBis"
 
' Alle Termine eines bestimmten Zeitraums ermitteln
'sDatumVon = CDate(Fahrtk_anz_Dat1.Text)
'sDatumBis = CDate(Fahrtk_anz_Dat2.Text)
 
' SQL-Anweisung
'SQL = "SELECT * FROM Termine WHERE Datum BETWEEN #" & _
'Format$(sDatumVon, "m-d-yy") & "# AND #" & _
'Format$(sDatumBis, "m-d-yy") & "#"
 
 
  Dim oRecordset As ADODB.Recordset
  Dim oField As ADODB.Field
  Dim oItem As ListItem
 
  With DB
    ' Die Connection zur Datenbank
    .ActiveConnection = DB
    .Source = "Fahrtkosten"
    .Open dbFilename
  End With
 
  ' Ersteinmal brauche wir ein Recordset
  Set oRecordset = New ADODB.Recordset
  oRecordset.Open "SELECT * FROM " & dbTable, _
  oCon, adOpenForwardOnly, adLockReadOnly, 0
 
  ' Sicherstellen, dass das ListView leer ist
  With Listview1
    .ColumnHeaders.Clear
    .ListItems.Clear
 
    ' Report-Ansicht (Detail-Ansicht)
    .View = lvwReport
 
    ' Hier richten wir das ListView ein
    For Each oField In oRecordset.Fields
      ' jedes Feld aus dem Recordset als Überschrift
      ' in das ListView
      .ColumnHeaders.Add , oField.Name, oField.Name
    Next
 
    ' Sind überhaupt Datensätze vorhanden?
    If oRecordset.RecordCount > 0 Then
      ' Nun das Recordset durchlaufen und alle Daten in
      ' das ListView einfügen
      oRecordset.MoveFirst
      Do
        ' ein ListItem mit dem ersten Feld des aktuellen
        ' Recordset-Eintrags erzeugen
        For Each oField In oRecordset.Fields
          If oItem Is Nothing Then
            ' ein neues ListItem erzeugen
            Set oItem = .ListItems.Add(, , oField.Value)
          Else
            oItem.SubItems _
              (.ColumnHeaders.Item(oField.Name).Index - 1) _
            = IIf(Not IsNull(oField.Value), oField.Value, "")
          End If
        Next
 
        ' Unser ListItem wieder auf Nothing setzten
        Set oItem = Nothing
 
        ' nächsten Datensatz aus dem Recordset
        oRecordset.MoveNext
      Loop Until oRecordset.EOF
    End If
  End With
 
  Set oField = Nothing
  Set oCon = Nothing
  Set oRecordset = Nothing
End Sub
 
 
End Sub