VBA Loop Will Not Stop.

Hi,

My attached code won't stop looping. It's probably something very small but I have been looking at this a while now and can't seem to find the solution.

Would appreciate any help.

    b = cvsSrv.Reports.CreateReport(Info, Rep)
       If b Then
          Rep.Window.Top = 25000
          Rep.Window.Left = 25000
          Rep.Window.Width = 1
          Rep.Window.Height = 1
          Debug.Print Rep.SetProperty("Group", BGroup)
          Debug.Print Rep.SetProperty("Splits", "1;10;12-17;30;241;2000")
          b = Rep.ExportData("", 9, 0, True, True, True)
          Set wk = ThisWorkbook
          Sheet1.Cells(ReportRowstart, 1).PasteSpecial
          Rep.Quit
          ReportRowEnd = Sheet1.Range("A10000").End(xlUp).Row
          ReportRowstart = ReportRowEnd + 1
          If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
          Set Rep = Nothing
          End If
          Rep.Quit
          
   End If
      
      Next CurrentRow
       
    Set Info = Nothing

thank you