删除 清空ACCESS数据

rs851002

请教一下各位，如何通过EXCE控件删掉（或清空）ACCESS记录数据，但保留ACCESS数据表中的字段，格式
比如我想通过EXCEL"操作表“建立连接，通过EXCEL的控件赋予VBA程序，来删除ACCESS 分录表中 ”数据库“中的全部记录，但保留 数据库 这个表，和里面的字段及格式。谢谢了！
里面只是建立了连接，但SQL确实不会写
ACCESS密码13

504373

DELETE FROM 表名

gftrewq

Sub 删除()
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim pthStr As String
    Dim sql As String
    pthStr = ThisWorkbook.Path & "\分录表.mdb"
    cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Jet OLEDB:Database password=13;data Source=" & pthStr
    sql = "delete * from 数据库"
    cnn.Execute sql
    cnn.Close
    Set cnn = Nothing
End Sub