Thank you for responding Michael, unfortunatley I tried this one & it hasn't worked, I have also been trying:

Code:
for i = 1 to rs.recordcount
Do While Not Rs.EOF
        rs.movefirst
        Rs.Delete
        Rs.MoveNext
    Loop
next i
incase that helped, but nothing yet, is there anything else wrong with the above ?

Thank you,
Alex Read