Private Function get_ME(ByVal ArtNr As String) As String
        Return FindRecByArtNr(ArtNr, "Me")
    End Function
 
    Private Function getArtBezByNr(ByVal ArtNr As String) As String
        Return FindRecByArtNr(ArtNr, "Bezeichnung")
    End Function
 
    Private Funtion FindRecByArtNr(ByVal ArtNr As String, ByVal Spalte As _
      String) As String
        Dim _return As String = "Unbekannt"
        Dim sr = ds.Tables("Artikel").Select("[Artikel-Nr] = '" & ArtNr & "'")
        If sr.Length = 1 Then _return = sr(0).Item(Spalte).ToString()
        Return _return
    End Function

________
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