Como ampliar el tiempo de espera de datos

[royrojas]

aqui una funcion de ejemplo
mira la linea donde esta sqlCmd.CommandTimeout = 3600

Código:

  'Procesa el query y crea el dataset de la consulta

  Private Function CreateDataSet(ByVal strSQL As String) As DataSet
    Try
      'Se crea la conexion a la base de datos.
      Dim sqlConn As New SqlConnection(Me.StrConexion)

      'SqlCommand es utilizado para ejecutar los comandos SQL
      Dim sqlCmd As New SqlCommand(strSQL, sqlConn)

      'Se le define el tiempo de espera en segundos para la consulta,
      'el valor default es 30 segundos.
      'Si una consulta es muy compleja podria ser que dure mucho en retornar los datos,
      'por eso le definimos el tiempo de respuesta en bastantes segundos
      sqlCmd.CommandTimeout = 3600

      'SqlAdapter utiliza el SqlCommand para llenar el Dataset
      Dim sda As New SqlDataAdapter(sqlCmd)

      'Se llena el dataset
      Dim ds As New DataSet
      sda.Fill(ds)

      Return ds
    Catch ex As Exception
      Throw ex
    End Try
  End Function