Me.OrdersTableAdapter.Fill(Me.NorthwindDataSet.Orders)
 
        Dim drv As DataRowView = CType(Me.OrdersBindingSource.List.Item(0), _
          DataRowView)
 
        If drv("ShippedDate") Is DBNull.Value Then
            Debug.WriteLine("ShippedDate is Null")
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist