Try changing your connection string to one found on this
page.
Perhaps setting the Connect Timeout parameter to 300 seconds (5min) like this:
"Server=ServerName\InstanceName;Database=yyy;User Id=user;Password=pass;Connection Timeout=300;"
Alternatively you could set one of these properties found on the ADO connection object:
objConn.
ConnectionTimeout
objConn.
CommandTimeout