strSELECT = "SELECT tblAktie.Titel, tblAktie.Valor, tblBewertung.Symbol, tblBranche.Branche, " & _
     "IIF(tblAktie.Favorit = True, 'Ja') AS Favorit, tblKurs.Kurs AS [Aktueller Kurs], " & _
     "tblAktie.Kaufziel, tblAktie.IDAktie, IIF(tblKurs.Kurs
     "tblRisiko.Risikostufe, tblAttraktiv.[Attraktivität]"
strFROM = "FROM (((tblAktie LEFT JOIN tblBewertung ON tblAktie.IDAktie = tblBewertung.fIDAktie) " & _
     "LEFT JOIN tblRisiko ON tblBewertung.fIDRisiko = tblRisiko.IDRisiko) " & _
     "LEFT JOIN tblAttraktiv ON tblBewertung.fIDAttraktiv = tblAttraktiv.IDAttraktiv) " & _
     "INNER JOIN [tblBörse] ON tblAktie.IDAktie = [tblBörse].fIDAktie) " & _
     "INNER JOIN tblBranche ON tblAktie.IDAktie = tblBranche.fIDAktie) " & _
     "INNER JOIN tblKurs ON tblAktie.IDAktie = tblKurs.fIDAktie)"
' Â ACHTUNG! Amerikanisches Format (#mm/dd/yyyy#) wird erwartet, wenn es sich um ein
' Â Feld vom Datentyp Date handelt!
' Â Benutze 'Format$(DasDatum, "\#mm\/dd\/yyyy\#")'
strWHERE = "WHERE (tblKurs.Datum = " & strAktuellstesDatum & ")"
strORDERBY = "ORDER BY tblAktie.Titel ASC"