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.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 18/11/2010 9:11 am