DoCmd.OutputTo acQuery, "Query1", "MS-DOSText(*.txt)", "C:\Users\Ioor\Desktop\Prove\hhhh.txt", False, "", 0