Taken another step further:
----------------------------
Function TruncateTable(sTableName As String) As String
' Purpose: Deletes all rows.
' Author: Help4Access.com
'
' Test: ?TruncateTable("USys_temp_RuleExport")
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM " &...