Dim controllo = Easy_SaleContext.tbContatti.Single(Function(cust) cust.NomeCognome = txtNomeCognome.Text)