Right I've referenced all 5 of those. I'm using Office 2010. I think the problem could be setting the correct path to my database. I've saved the Access file where I want the data to be extracted to. It is called: Extraction.accdb

I put in this line as I've saved the Extraction file to my desktop:

Set daoDB = DBEngine.OpenDatabase("C:\users\user\Desktop\Extraction")

Thanks