Set rec10 = db.OpenRecordset( _
                               "SELECT `PGPreis(T)`.*" & _
                               " FROM `PGPreis(T)`" & _
                               " WHERE [PGPreis(T)].[PG-ID] = " & CStr( _
                               lngID) _
                               " ORDER BY [PGPreis(T)].Datum")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de