次のコードで、プロシージャのテキストを更新するための、Command プロパティの使用方法を示します。
Sub ProcedureText()
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
' Open the Connection
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
' Open the catalog
Set cat.ActiveConnection = cnn
' Get the Command
Set cmd = cat.Procedures("CustomerById").Command
' Update the CommandText
cmd.CommandText = "Select CustomerId, CompanyName, ContactName " & _
"From Customers " & _
"Where CustomerId = [CustId]"
' Update the Procedure
Set cat.Procedures("CustomerById").Command = cmd
End Sub