Visual Basic - Tiempo de Espera

hola, tengo un problema, estyo programando un sitema que llama a procedimientos al macenados de sql 2000, los cuales al ejecutarce en el sql 2000 demoran aproximandamente de 5 min a 8 minnutos, y cuando los ejecuto desde el vb me sale el siguiente mensaje:"Temino el tiempo de espera".
me podrian decir como hacer para que mi procedimiento almacenado termine de ejecutarce, y que no me salga este mensaje.
gracias.

Call DB_Open(oCnn)

oCnn.Execute "exec genera_ranking_imp '" & CboAño.Text & "','" & CboMes.Text & "'"

oCnn.Close
Set oCnn = Nothing

Hola! Existe una propiedad de la conexion que controla el tiempo que debe esperar el objeto ADO la respuesta de que el comando termino. Este tiempo se define en segundos, en la propiedad "Commandtimeout"
En tu caso podrias poner :

oCnn.CommandTimeout = 600

y Luego ejecutar el comando

Asi va a esperar 600 segundos antes de determinar que hubo un error o algo parecido.

Bueno espero que te sirva.Saludos