Dim query = (From c In Context.Tab_clienti
                                     Where c.clie_idstruttura = idstruttura And c.clie_cognome = cognome.Text And c.clie_nome = nome.Text And c.clie_datanascita = data
                                     Select c.clie_idcliente, c.clie_cognome, c.clie_nome, c.clie_datanascita, c.clie_idluogonascita).FirstOrDefault