Ho questo ciclo ma va in errore quando trova un valore nullo in una cella...come faccio a risolverlo?

codice:
 Dim presente As Integer = 0
        Dim assente As Integer = 0

        For i As Integer = 0 To DSProva.Tables(0).Rows.Count - 1

           

            If DSProva.Tables(0).Rows(i).Item("Presenza") = "Presente" Then

                presente = presente + 1
            Else
                assente = assente + 1
            End If
          
        Next
Se le celle sono NON VUOTE tutto funziona alla perfezione, quando incontra una cella vuota genera un errore:

L'operatore '=' non è definito per tipo 'DBNull' e stringa "Presente".