ADO to Excel 2000 and up

I did not write this code by myself , i had found it at http://support.microsoft.com/support/kb/articles/Q246/3/35.ASP With this code you can transfer the contents of an ADO recordset to a Microsoft Excel worksheet by automating Excel , this code will work only with Excel 2000 or 2002 , for Execl 97 use my previous examples, or just look at this examlpe for basic knowledge at the IF statement.