Devo fare una chiamata ad AS/400 quindi utilizzo la seguente
sintassi :

Set cmdAS400Lib = New ADODB.Command
Set cmdAS400Lib.ActiveConnection = objConnAS400

cmdAS400Lib.CommandText = ...
cmdAS400Lib.CommandType = adCmdText
cmdAS400Lib.Prepared = True
cmdAS400Lib.Parameters.Append ...
cmdAS400Lib.Parameters(0).Value = ...
cmdAS400Lib.Execute

Quando eseguo "cmdAS400Lib.Execute" se AS/400 non mi risponde entro 5
secondi devo sganciarmi e dare una segnalazione di errore
Ciao e grazie