Try

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

Catch ex As Exception

MessageBox.Show("Il record non esiste", "", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try