quando rs.Fields(0).Value contiene dei valori va bene
il problema è che rs.Fields(0).Value è nullo quindi i valori cercati tramite la query non esistono
mi dice che il record cercato è l inizio o la fine del file o è stato cancellato, quindi non mi va all else dove setto il flag ad "N"
codice:
If Not IsNull(rs.Fields(0).Value) Then
Select Case Cont
Case 1
Primo_Ordine
Cont = Cont + 1
Contatore = rs(0).Value
Case 2
Secondo_Ordine
Cont = Cont + 1
Contatore = rs(0).Value
Case 3
Terzo_Ordine
Flag_3_Ordini = "N"
End Select
Else
Flag_3_Ordini = "N"
End If