El problema es simple: tienes una consulta que toma mas del tiempo por defecto asignado a tu conexion, que son 60 segundos si no me equivoco.
Tienes que hacer 2 cosas:
1. optimizar tu consulta sql.
2. aumenta el tiempo:
Código:
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_tuprocedimiento"
cmd.CommandTimeout = 600
Muestranos tu consulta.