Public Function GetProdukt(ByVal productName As String) As Produkt
  Using dc As New DataContext(connectionString)
    Return (From p in dc.GetTable(Of Produkt) _
            Where p.Produkt_Name.Contains(productName) _
            Select p).Single()
  End Using
End Function

Ralf