Dim Januar_Einnahmen = (From r In HaushaltskasseDataSet.Eintraege Where _
   r.Monat = "Januar" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum( _
   )
        tbx_Januar_Einnahmen.Text = CStr(Januar_Einnahmen)