Dim cmd As New SqlCommand("Procedimiento", cn) cmd.CommandTimeout = 50 'Establece aquí el tiempo de espera en segundos