Per funzionare devi impostare la connessione PRIMA di aprirla :

Set cn = CreateObject("ADODB.Connection")
cn.ConnectionTimeout = 5
cn.Open "......."

Se però il provider del driver di connessione non supporta il
timeout, non funziona. E questo è purtroppo il caso dell OLEDB
Provider per AS/400 :

http://msdn.microsoft.com/library/de...vsam_oledb.asp

Il comando che esegui, ritorna un recordset e/o un valore ?

Fammi sapere.
Ciao,