Ciao Pietro,
non so se ti convenga farlo, comunque prova così :
codice:
Protected Function valore(dt As DataTable, campo As String) As Integer
	Return If(dt.AsEnumerable().Any(Function(s) s("campo").ToString = campo), dt.AsEnumerable().Where(Function(s) s("campo").ToString = campo).FirstOrDefault(), 0)
End Function
forse è meglio comunque mettere qualche variabile in più...