Public Class BindingSourceFindColumnValue
    Inherits BindingSource
 
    Public Function FindColumnValue(columnname As String, _
                                    value As Object) As Integer
 
        Dim p As System.ComponentModel.PropertyDescriptor = Nothing
 
        If Not TypeOf MyBase.DataSource Is DataTable Then
            Throw New ArgumentException("Keine Datatable als Source")
        End If
 
        With MyBase.CurrencyManager
            p = .GetItemProperties.Find(columnname, True)
        End With
 
        If p Is Nothing Then
            Throw New ArgumentException("Spalte nicht gefunden")
        End If
 
        Return MyBase.Find(p, value)
    End Function
End Class