rstOrgProduct.Open "select * from ows.Opt_IssueOrgProduct " _
        & "where feeNew = '" + CStr(arrayRows( 3 , intLoopRow)) + "' " _
        & "and full_oname = '" + CStr(arrayRows( 1 , intLoopRow)) + "' " _
        & "and productNAME = '" + CStr(arrayRows( 12 , intLoopRow)) + "' " _
        & "and prod_date = to_date('" + CStr(dtIssue) + "','dd.mm.yyyy') " _
        & "and prod_event = in (" + strEvents + ")", cnn