Yep, it worked, thanks so much sir hahaha, I got your point, that Access actually creates a compacted version then replaces the origianal too, hehehe that gave lots of ideas :D so I coded:
Public Sub compactBackEnd()
On Error GoTo doon
Dim Fpath2, Bpath2 As String
Dim dPath, dPath2 As String...