For Each DR In ds.Tables(0).Rows
If DR.RowState <> DataRowState.Deleted AndAlso Not DR.IsNull("Παραγγελία") Then
If CType(DR.Item("Παραγγελία"), Boolean) = False Then
iDS += 1
End If
End If
Next
Αυτός ο έλεγχος σου χρειάζεται οποτεδήποτε κάνεις access datarows και δεν είναι φρέσκα-φρέσκα από τη database.
Vir prudens non contra ventum mingit