fileDt = Format(Date, "MMDDYY")
fileNm = "\\jazzs\acc\" & "johndoe" & fileDt & ".txt"
MsgBox (fileNm)
DoCmd.TransferText acImportDelim, "SPECS", "3RPV Export", "\\jazzs\acc\" & ""johndoe" & fileDt & ".txt"ileNm"", False, """
' Runs query a code to 3rpv export