Friend Function LeggiDati(ByVal Query As String, ByVal NomeDataTable As String, ByVal NomeDB As String) As Boolean
        Dim DA As SqlDataAdapter
        Dim DT As New DataTable
        Dim SConnessione As String
        Try
            SConnessione = "Data Source=" & Environment.MachineName & "\SQLEXPRESS;Initial Catalog=" & NomeDB & ";Uid=utente;Pwd=password;"
            DA = New SqlDataAdapter(Query, SConnessione)
            DT = New DataTable(NomeDataTable)
            DA.Fill(DT)
            LeggiDati = True
        Catch err As Exception
            MessageBox.Show("Si è verificato un errore di lettura nel DataBase nella procedura di " & NomeDataTable & Chr(10) & "Contattare l'assistenza con il codice di errore", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
            MessageBox.Show(err.ToString, "Dettagli errore", MessageBoxButtons.OK, MessageBoxIcon.Information)
            LeggiDati = False
        Finally
            DA.Dispose()
            SConnessione = Nothing
        End Try
    End Function