The following code demonstrates how to delete a procedure using the Procedures collection Delete method.
Sub DeleteProcedure()
Dim cat As New ADOX.Catalog
' Open the Catalog.
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
' Delete the Procedure.
cat.Procedures.Delete "CustomerById"
End Sub