Running multiple tests through NUnit results in failure

   <SetUp()> _
    Protected Sub TestSetUp()
      MockManager.Init()  
    End Sub

    <TearDown()> _
    Protected Sub TestShutdown()
      MockManager.Verify()
      MockManager.ClearAll()
    End Sub

<Test()> _
     Public Sub TestMaxValue()

      'Constants
      Const FIELD_FRIENDLY_NAME As String = "YearsOfService"

      Const MAX_VALUE As Integer = 10
      Const TOO_BIG_VALUE As Integer = 15
      Const CORRECT_VALUE As Integer = 8

      Const RULE_TYPE As ValidationHelper.RuleType = ValidationHelper.RuleType.MaxValue

      'Expectations
      Using rec As RecordExpectations = RecorderManager.StartRecording()

        rec.ExpectAndReturn(TempBOID.GetNext, -304).RepeatAlways()
        rec.ExpectAndReturn(Database.PredatorConnection, CONNECTION_STRING)

        Dim Cn As SqlConnection = New SqlConnection(CONNECTION_STRING)
        rec.MockStaticConstructors()
        Cn.Open()
        Cn.Close()

        Dim Cm As SqlCommand = New SqlCommand()
        Cm.CommandText = SpNames.GET_VALIDATION_INFOLIST
        rec.CheckArguments()
        Cm.Parameters.AddWithValue(SQLParam.BUSINESS_OBJECT_FULL_NAME, BUSINNESS_OBJECT)

        Dim dr As ExtendedSafeDataReader = New ExtendedSafeDataReader(Cm.ExecuteReader())
        rec.MockStaticConstructors()
        rec.MockAllInstances = True

        rec.ExpectAndReturn(dr.Read(), True)

        dr.GetInt32(FieldNames.RULE_ID)
        rec.Return(EXISTING_ID).CheckArguments()

        dr.GetString(FieldNames.FIELD_NAME)
        rec.Return(FIELD_FRIENDLY_NAME).CheckArguments()

        'Code removed  to shorten post

        rec.ExpectAndReturn(dr.Read(), False)
        dr.Dispose()


      End Using

      'Assert
      Dim NewProject As Project = Project.NewProject()
      Assert.IsTrue(NewProject.IsValid)

    End Sub

    <Test()> _
       Public Sub TestNoRules()

      'Expectations
      Using rec As RecordExpectations = RecorderManager.StartRecording()

        rec.ExpectAndReturn(TempBOID.GetNext, RULE_ID).RepeatAlways()
        rec.ExpectAndReturn(Database.PredatorConnection, CONNECTION_STRING)

        Dim Cn As SqlConnection = New SqlConnection(CONNECTION_STRING)
        rec.MockStaticConstructors()
        Cn.Open()
        Cn.Close()

        Dim Cm As SqlCommand = New SqlCommand()
        Cm.CommandText = SpNames.GET_VALIDATION_INFOLIST
        rec.CheckArguments()

        Cm.Parameters.AddWithValue(SQLParam.BUSINESS_OBJECT_FULL_NAME, BUSINNESS_OBJECT)

        Dim dr As ExtendedSafeDataReader = New ExtendedSafeDataReader(Cm.ExecuteReader())
        rec.MockStaticConstructors()


        rec.ExpectAndReturn(dr.Read(), False)
        dr.Dispose()


      End Using

      'Assert
      Dim NewProject As Project = Project.NewProject()

      Assert.AreEqual(RULE_ID, NewProject.Id)
      Assert.IsTrue(NewProject.IsValid)


    End Sub