Here is the code example for execute db command

Create a connection object
Set objDB = CreateObject(''ADODB.Connection'')

'Open a session to a db
objDB.ConnectionString = ''''
objDB.Open

'execute query
strQuery = ''Delete whatever from whatever''
Set objResults = objDB.Execute(strQuery)

'clean up
objResults.Close
objDB.Close
Set objResults = Nothing
Set objDB = Nothing