Hey guys, thank you for your replies,
sorry it took me so long to reply but I've had some problems that needed to be solved and I was away for a while.
I've changed this
Set rs = db.OpenRecordset(searchTable, dbOpenSnapshot, dbSeeChanges)
to this
Set rs = db.OpenRecordset(searchTable...