Need to get Test case execution count

Hi All ,

I am trying to get Execution count for a test case in a test plan and I should update it in user field in Test plan.

Function TestCasecount(TestID)

  On Error Resume Next

Set TestF = TDConnection.TestFactory

            Set TestList = TestF.NewList("")

            Set com = TDConnection.Command

            For Each test In TestList

                com.CommandText = "select  COUNT(RN_RUN_ID) FROM RUN where RN_TEST_ID=" & test.ID

              Set rec = com.Execute()

              Test_Fields.Field("TS_USER_08").Value = rec.FieldValue(0)

         Next

 End Function