The following code shows how to refresh the Procedures collection of a Catalog. This is required before Procedure objects from the Catalog can be accessed.
Sub ProcedureRefresh()
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;"
' Refresh the Procedures collection
cat.Procedures.Refresh
End Sub