Many thanks for your reply.
I have got it working with the following code, the only slight problem is that it opens the excel sheet in read-only. Is there a way around this please?
Dim db As DAO.Database
'Set db = DAO.DBEngine.Workspaces(0).OpenDatabase( _
"C:\database.mdb")
Set db = CurrentDb...