Either your command (most likely) or your connection is timing out. Luckily, you can set both:

dim g_Db as new ADODB.Connection

g_Db.CommandTimeout = 1800 'about 30 mins
g_Db.ConnectionTimeout = 1800