Hey hey
Pretty sure I've got all the right references etc, but the following works in Access VBA:
Sub TestDump()
Dim db as Database
Dim LPT as QueryDef, tblDef as TableDef
Dim DStmp as string, connstr as String
DStmp = Cstr(Format(Now(), "yyyymmdd"))
Set db =...