Dim DATE1 As String
Dim PATH As String

DATE1 = Format(Date, "yyyymmdd")
PATH = "location where the CSV file is stored\prefix name" & DATE1 & ".csv"
DoCmd.TransferText acImportDelim, "Import Specification", "Table", PATH, True