Resolvido
Dim DBConexao As ADODB.Connection, objResposta, strConsulta
Set BDConexao = New ADODB.Connection
BDConexao.CommandTimeout = 120
O CommandTimeout padrão do sistema é 30 segundos, com o comando acima foi alterado para 120 segundos.
Postado : 18/11/2010 9:11 am