Private dt As DataTable
 
    Private Sub lookup_lesen()
        dt = Ds.Tables.Add("Lookuptabelle")
        dt.Columns.Add("ean")
        dt.Columns.Add("artikelnummer")
        dt.Columns.Add("bezeichnung1")
        ' usw...
 
        ' (Daten einlesen)
 
        ' DataBindings setzen
        Ean.DataBindings.Add("Text", dt, "ean")
        Bezeichnung1.DataBindings.Add("Text", dt, "bezeichnung1")
       ' usw...
 
    End Sub
 
    Private Sub FindBezeichnung1_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles FindBezeichnung1.Click
        Dim cm As CurrencyManager = CType(dt, CurrencyManager)
        Dim dv As DataView = CType(cm.List, DataView)
        If dv.Sort <> "bezeichnung1" Then
            dv.Sort = "bezeichnung1"
        End If
        Dim idx As Integer = dv.Find(TextBox1.Text)
        If idx <> -1 Then
            cm.Position = idx
        Else
            MsgBox("Item not found")
        End If
    End Sub

________
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