[VBA] Errore su If Not IsNull (Access)

[Astharot]

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"

   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