DB2 Query Execution Estimate

I am executing a query against a DB2 database on an AS400 using VB.  I create a connection using ADO, execute the query, and bring back the result into a recordset.  The problem I am having is with the connectiontimeout parameter of ADO.  The default is 30 seconds.  Most queries I have take only a couple of seconds to execute.  Once in a while I get a query that takes longer, but certainly not longer than 30 seconds.  The problem is that before the query is executed, DB2 estimates how long it will take to execute.  If it thinks it will take longer than the value specified in the connectiontimeout, it will not even attempt to execute the query.  This is a problem as the reality is the query only takes a couple of seconds to execute, but DB2 in some cases comes back with estimates of 20 minutes or longer, and does not execute the query.

What I would really like to have happen is for the query to execute, and if it goes longer than the timeout, have it fail at that point.  I do not want to set an unreasably long timeout, or let it execute forever.  

So my question is, does anyone know how to turn the estimator off and keep the commandtimeout reasonable.

Here is an example of the code that is used to execute the query:

    Dim objRS           As ADODB.Recordset
    Dim objCmd          As ADODB.Command

    Set objCmd = New ADODB.Command
    With objCmd
        Set .ActiveConnection = objCTIconn  ' This is the Connection
        .CommandText = strQuery     ' This is the query being execued
        .CommandTimeout = 30         ' Timeout of 30 seconds.  This is also default.
        .CommandType = adCmdText
        Set objRS = .Execute
    End With
    Set GetCtiDATA = objRS
    Exit Function


Thanks.