AdoDB & RecordSet & TimeOut - VB

Формулировка задачи:

люди... есть такой вот код...

                    Листинг программы
                
Public Function GetPR(ByVal PRName As String, ByVal Params As String) As ADODB.Recordset
Set GetPR = New ADODB.Recordset
    GetPR.CursorLocation = adUseClient
    GetPR.Open PCol.RemoteDB + '.' + PCol.User + '.' + PRName + ' ' + Params, 'FILE NAME=' + PCol.AppPath + PCol.ODBCfile, adOpenStatic, adLockReadOnly, False
End Function

Где PCol.ODBCfile - UDL файл! такая вот проста функция для вызова Sp... НО! Timeout по дефолту стоит 15 сек! ЭТО МАЛО! ЛЮДИ ДОБРЫЕ! ПОМОГИТЕ! надо это как переписать с мин изменениями чтобы таймоут поставить сколь надо...

Решение задачи: «AdoDB & RecordSet & TimeOut»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim cn as ADODB.Connection
Dim SQL as String
 
    Set cn=New ADODB.Connection
    cn.CommandTimeout=30
    cn.ConnectionTimeout=60
    cn.Open 'FILE NAME=' + PCol.AppPath + PCol.ODBCfile
 
    SQL=PCol.RemoteDB + '.' + PCol.User + '.' + PRName + ' ' + Params
 
    Set GetPR = New ADODB.Recordset
    Set GetPR.ActiveConnection=cn
    GetPR.Open SQL,,adOpenStatic, adLockReadOnly, False