OleDbCommand e DataReader

Public Function VerificaNumFattura(ByVal Numero As Long, ByVal Anno As Long) As Boolean

' verifica che il numero di fattura non e' stato emesso

' restituisce VERO se non esiste il Numero ricercato

' restituisce FALSE se esiste il numero


Dim sql As String = "SELECT Fatturazione.Gestione, Fatturazione.FatturaNumero FROM Fatturazione WHERE (((Fatturazione.Gestione)=" & Anno & ") AND ((Fatturazione.FatturaNumero)= " & Numero & " ));"
Dim cmd As New OleDbCommand(sql, Dbazienda)
Dim dr As OleDbDataReader = cmd.ExecuteReader
Try
While dr.Read()

VerificaNumFattura = False
dr.Close()
Exit Function
End While
VerificaNumFattura = True
dr.Close()
Catch ex As Exception
' errore

VerificaNumFattura = False
End Try
dr.Close()
End Function