prova con

rs.ActiveConnection.CommandTimeout = xxx ' xxx=secondi

prima della rs.open