Having Trouble Incorporating.....

[Yogi39]

SELECT TOP 100 [M1].[mail], *
FROM M1
WHERE randomizer()=0
ORDER BY rnd(isnull([M1].[mail])*0+1);

Now want to add this.....

strSQL = "TransferText acExportDelim, , "top100", "D:\Documents
and Settings\Styles\Desktop\100.txt""
DoCmd.RunSQL strSQL
strSQL = "TransferText acExportDelim, , "top100", "D:\Documents and
Settings\Styles\Desktop\100.txt""
DoCmd.RunSQL strSQL;