PRB: "Command Time Out" Property Does Not Work

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Visual Basic project.
2. On the Project menu, click References, and select Microsoft ActiveX Data Objects 2.x Library.
3. Add the following code to a Visual Basic form and run the code:
   Note You must change User Id=<username> and Password=<strong password> to the correct values before you run this code. Make sure that User Id has the appropriate permissions to perform this operation on the database.

      Dim oCn As Connection
      Dim oRs As Recordset
      Dim oCm as Command
   
      Set oCn = New Connection
      Set oRs = New Recordset
      Set oCm = New Command
   
      With oCn
         .ConnectionString = "PROVIDER=SQLOLEDB;" & _
                             "DATA SOURCE=<server>;" & _
                             "Initial Catalog=pubs;" & _
                             "User Id=<username>;Password=<strong password>"
         .Open
      End With
   
      'Create a Stored Procedure on SQL Server that causes a delay.
      With oCM
         Set .ActiveConnection = oCn
         .CommandText = "Create Procedure MyWait AS " & _
                         "waitfor delay '00:00:15'"
         .CommandType = adCmdText
         .Execute
      End With
   
      'The Command Time out does not occur.
      With oRs
         Set .ActiveConnection = oCn
         .CursorLocation = adUseClient
         .Properties("Command Time out") = 5
         .Open "MyWait"
      End With