Problem with VBA Access - lock files

[guicarpi]

Hi
I have a problem deleting table thru VBA. Here's how I do it :

t_file.Open "File", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
If t_file.EOF = False Then
    Do
    t_file.Delete
    t_file.MoveNext
    Loop Until t_file.EOF
End If
 
t_file.Close
Set t_file = Nothing

The problem is that if the table is too big, it tells me that the number of lock file is too big. Is there another way or a problem with what I am doing.

Thanks for helping