Thank you so far Namliam,
I've read your suggested thread and tried this:
Dim t As Date
t = 1 / 2 / 2014
DoCmd.RunSQL "SELECT TRP.Customer, TRP.Material, TRP.Product_Class, TRP.TRP as TRP_in_EUR, TRP.Valid_from, " & _
" TRP.Valid_to INTO [New_TRP_Witten] " & _
"...