Private Sub cdmHTML_Click()
' Beispielsaufruf für das Erstellen eines
' mehrseitigen HTML-Reports
  Dim HTMLFile As String
 
  'Datenbank öffnen
  dbFile = App.Path + "\db_musikcds.mdb"
  Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
  Set Tabelle = Db.OpenRecordset("tbl_bands")
  Tabelle.Index = "band_name"
 
  ' SQL-Abfragestring
  SQL = "select cd_nummer, album_title, band_name, num_tracks, cd_back, person" & _
    "from tbl_bands, tbl_albums, tbl_verleih where tbl_albums.band_id =" & _
    "tbl_bands.band_id and tbl_albums.cd_id = tbl_verleih.cd_id and album_title" & _
    "like '*' order by album_title, band_name"
  'SQL = "select album_title from tbl_albums where album_title"
  Set rs = Db.OpenRecordset(SQL)
 
  ' HTML-Dateiname festlegen
  HTMLFile = App.Path & "\ALBEN.HTML"
 
  ' Report erstellen (max. 15 Einträge pro Seite)
  lblNrAlben.Caption = rs("band_name")
  dbTableToHTML rs, HTMLFile, "CD-Übersicht", "Liste aller Alben in der" & _
    "Datenbank", 15
 
  rs.Close
  Db.Close
 
  ' Report im Standard-Browser anzeigen
  HTMLShowReport Me.hWnd, HTMLFile
End Sub