The way you are doing it is very long winded,
why not just run a truncate table command;
vb Code:
If ResetTable(tablename) = True then
'do stuff
End If
Public Function ResetTable(TableName as string) As Boolean
On Error GoTo errorhandler
Set adocom = New adodb.Command
adocom.CommandText = "Truncate Table " & TableName
adocom.CommandType = adCmdText ' set the command type
adocom.ActiveConnection = CurrentProject.Connection' set the active connection
adocom.Execute
ResetTable = True
Set adocom = Nothing
Exit Function
errorhandler:
ResetTable = False
End Function
if the query is solved & Rate those who have helped you 
Reply With Quote