How to rename the tables?

I would like to know how I can drop the table A and rename the table D to A ?

Code:

---

Set db = New ADODB.Connection
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBMS.mdb;Persist Security Info=False"
Set rst = New ADODB.Recordset
rst.Open "Select distinct * into D from A", db, adOpenDynamic, adLockOptimistic

---

EXEC sp_rename 'customers', 'custs'