Sub CreateStoredProc() Dim cmd As ADODB.Command Set cmd = New ADODB.Command cmd.ActiveConnection = CurrentProject.Connection cmd.CommandText = "CREATE PROCEDURE procClientGet " & _ "(CID long) " & _ "AS SELECT ClientID, CompanyName " & _ "FROM tblClients " & _ "WHERE ClientID = CID" cmd.Execute End Sub