我想在Access中查找一个表“测试表”，如果该表存在，就将该表删除掉。该如何用vb2013写？谢谢了

Imports
Imports ADOX
Imports System.Data.SqlClient
Module Module1
   
    Public Sub AddNewAccess()
        Dim cat As Catalog = New Catalog()
        Dim apppath As String = Application.StartupPath
        apppath = apppath & "\源文件\"
        Dim cn As ADODB.Connection = New ADODB.Connection  '定义连接
        Dim objTable As ADOX.Table = New ADOX.Table         '定义新表
           cn.Open("Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & "源文件\" & "NewMDB.accdb") '链接到数据库
        Dim rs As New ADODB.Recordset
        rs = cn.Execute("测试项目表")
        If Err.Number = 0 Then
            If MsgBox("此表已经存在，是否删除？", vbYesNo , "提示") = vbYes Then
                 cn.Execute("DROP TABLE 测试项目表")   '－－－－－－－－－此处不行
            Else

            End If
            cat = Nothing
            cn.Close()
            cn = Nothing
        End If
      
    End Sub
End Module

这样写对吗？？我在运行时不能删除掉那个表。

我是刚学的，好多都还不会。我试试。

如何应用不同的引用，不知道在哪里能学到。

谢谢了