删除表中的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数据库，大量删除了记录后，一定要记得压缩修复数据库，不然一样还是慢。