删除表中的7000多条记录好慢啊 有什么提速的方法？解决方案

删除表中的7000多条记录好慢啊 有什么提速的方法？
函数 专门用于删除数据表中的记录
一数据库 5个字段 7000多条记录
用下面的函数清空7000多条记录时 大概要48秒 好慢啊
有没有什么好方法 可以提速啊
Public Sub PrmDel(Rt As ADODB.Recordset)
If Rt.RecordCount = 0 Then
  MsgBox "所有参数已被删除！", vbOKOnly, "提示"
Else
  Rt.MoveFirst
  Do While Not Rt.EOF
  Rt.Delete
  Rt.MoveNext
  Loop
End If
End Sub

[解决办法]

VB code

'删除指定条件的记录conn.execute " delete from 表名 where a='a' "'清空表中所有记录：conn.execute " truncate table 表名 "
[解决办法]
如果是Access数据库，大量删除了记录后，一定要记得压缩修复数据库，不然一样还是慢。
[解决办法]
rt.open " delete from 表名 "
或者
rt.open " delete from 表名 where 1=1 and 你的条件 "