vb用adox怎样删除access中的数据表

Dim cat As ADOX.Catalog

'连接数据库
Set cat = New ADOX.Catalog
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\youDB.mdb;" & _
"Jet OLEDB:Database Password=abc"

cat.Tables.Delete "youTableName"

Set cat = Nothing