DoCmd.RunSQL "INSERT INTO FILEEXTRACTS (supplier, [part number], afn, filename, filedate) SELECT DISTINCT [" & strTbl & "].supplier,[" & strTbl & "].[part number], """ & strFunction & """, """ & strTbl & """...