function etwas(byval var1 as ..., byval var2 as string)
 
Dim dc As New transparentcomDataClassDataContext()
 
       return (From f In dc.GetTable(Of Firmen)() _
                  'wobei var1 eine Spalte in der Tabelle Firmen ist
                  Where f.var1 = var2 _
                  Select f)
 
End Function