Hallo Michael,
um nur bestimmte Tabellen oder Daten zu verwenden, muss in der Private Sub FillSchemaInfo() Funktion die Zeile "DataTable(i).sSQL= "SELECT * FROM [" & RS("TABLE_NAME") & "]" angepasst werden.
Zum Beispiel reicht es aus “SELECT TOP 3 From *…” zu verwenden, um nur die ersten Datensätze anzuzeigen oder du ergänzt die Abfrage mit einer WHERE-Bedingung.
Alternativ hast du auch die Möglichkeit Berichtsparameter zu verwenden, um die Daten zu filtern (siehe Berichtsparameter und deren Verwendung). Wichtig ist, dass du zuerst den Berichtsparameter im Designer erstellst und erst danach die Vorschau druckst.
Falls du jedoch einen eigenen SQL-String verwenden möchtest, müsstest du in der Funktion InitADOConnection() die Zeile m_sConnStr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBPath &";;" anpassen.