deberas de realizar una referencia a la libreria (Dll) Microsoft activex data objects, despues deberas de declarar una variable objeto tipo adodc.connection, y adodc.command pasar parametros y ejecutar la consulta.
te envio un ejemplo:
Dim StrSql as String
StrSql = METE AQUI LA SENTENCIA SQL PARA ELIMINAR TU TABLA
'Declaro y creo variable para Conexion a DB.
Dim ObjConexion As ADODB.Connection
Set ObjConexion = New ADODB.Connection
CadenaConexion= METE AQUI LA CADENA DE CONEXIONAL SERVIDOR Y TABLA QUE TRATAS DE ELIMINAR
'Abro La conexion DB
ObjConexion.Open CadenaConexion
'Declaro y creo variable para AdoCommand
Dim ObjCommand As ADODB.Command
Set ObjCommand = New ADODB.Command
'Establesco parametros de ADOCommand
ObjCommand.ActiveConnection = ObjConexion
ObjCommand.CommandType = adCmdText
ObjCommand.CommandText = StrQry
'Ejecuto la consulta en la DB.
ObjCommand.Execute
Nota:
no olvides cerrar la coneccion a la base de datos y destriur los objetos para optimizar el performance.
Saludos.
Te dejo por cualquier cosa.
[email protected]