This would be easier using SQL
strSQL = "INSERT INTO TBLLetterHistory (LeadID, LtrDate, ReportName) "
strSQL = strSQL & "SELECT LeadID, Now() AS LtrDate, 'RPTLetterByPostcode' AS ReportName FROM QRYLetterByPostcode;"
CurrentDB.Execute strSQL
Note: I change the name for your date field. Date is...