post o codigo ai, nao sabemos o que vc esta fazendo, ficou meio vago

o erro ocorre quando eu tento eliminar uma quantidade grande de registros.

o processo é o seguinte :

 

   BeginTrans                                     'inicia transação
   Set PVENDA = vgDb.OpenRecordSet("PVENDA", dbOpenTable)

   'exclui vendas
   Set PVENDA = vgDb.OpenRecordSet("SELECT * FROM PVENDA WHERE (PVEDAT >= CDate('" & periodoi & "')) AND PVEDAT <= CDate('" & periodof & "')", dbOpenDynaset)
   If PVENDA.RecordCount > 0 Then
      PVENDA.MoveMin
      vgNVez = 0
      Do While Not PVENDA.EOF
         PVENDA.Delete
         PVENDA.MoveNext
      Loop
   End If
   CommitTrans                                    'grava transação