Mensaje enviado por "Julio Ricardo" <julioricardo40@yahoo.com>

Sub CreateProcedure()
   Dim cmd As New ADODB.Command
   Dim prm As ADODB.Parameter
   Dim cat As New ADOX.Catalog
   ' Crea el comando parametrizado (específico de Jet)
   Set cmd.ActiveConnection = Cn
   cmd.CommandText = "PARAMETERS [ciudad] Text;" & _
      "Select * From Clientes Where ciudad = [ciudad]"
   ' Abre el catálogo
   Set cat.ActiveConnection = Cn
   ' Crea el nuevo procedimiento
   cat.Procedures.Append "Estado", cmd
End Sub

Con esto yo creo el procedimiento y realmente se crea en la base de datos.(Access 2000)con el nombre de Estado, como una consulta mas.