Select count (*)

        Sql = "SELECT count(*) "
        Sql += " FROM ZCNTB_EXTRA_DATI T1, ZCNTB_EXTRA_ANAGRAFICA T2 "
        Sql += " WHERE T1.COD_DITTA = T2.COD_DITTA AND "
        Sql += " T1.TIPO_CONTRATTO = '01' AND " 'RID
        Sql += " T1.DT_REVOCA_FATT = '00000000' AND " '/*DITTE REVOCATE*/"
        Sql += " T1.DT_ATTIVA_SOSPENS = '00000000' AND " '/*DITTE SOSPESE*/"
        Sql += " (T2.COD_PAESE IS NULL OR "
        Sql += " T2.COD_IBAN = '00') AND "
        Sql += " T2.COD_CIN IS NULL "
        Sql += " ORDER BY T2.COD_DITTA "

        Dim cmd As New OracleCommand(Sql, conn)        

        Try
            conn.Open()
            Dim rNrTotaleNoCIN As OracleDataReader

            rNrTotaleNoCIN = cmd.ExecuteReader()

            If rNrTotaleNoCIN.Read Then IDE_NOCIN.Text = rNrTotaleNoCIN.GetValue(0)

            rNrTotaleNoCIN.Close()
       End Try