از کد زیر با کمی تعریف متغیر ها و مقدار دهی به آنها می توانید استفاده کنید :
Public Sub dropTable()
On Error GoTo localerr
Dim strSQL As String
Dim y As Adodc
Set y = mvarsetAdoDcControl
With y
.CommandType = adCmdTable
.RecordSource = clsDB_TableName
.Refresh
End With
Dim Cc As ADODB.Connection
Set Cc = y.Recordset.ActiveConnection
strSQL = " drop table " + clsDB_TableName
Cc.Execute (strSQL)
y.Recordset.Update
y.Recordset.Close
Cc.Close
Set y = Nothing
Exit Sub
localerr:
'MsgBox Str(Err.Number) + " " + Err.Description, vbExclamation + vbSystemModal, "deleting Error !"
End Sub