Private Sub RichiamaDati(ByVal key As String)
        Dim mdbCon As New MySql.Data.MySqlClient.MySqlConnection()
        Dim dr As MySql.Data.MySqlClient.MySqlDataReader
        Dim constring As String, queryString As String
        Dim fun As New MyFun

        constring = "Server=" & SERVER_CONNESSIONE & ";Database=" & DB & ";User id=" & USER & ";Pwd=" & PSW & ";Port=" & PORT & ";"

        mdbCon.ConnectionString = constring

        queryString = "SELECT * FROM testi WHERE IDTAG='" & key & "';"
        Dim command As New MySql.Data.MySqlClient.MySqlCommand(queryString, mdbCon)
        command.Connection.Open()

        dr = command.ExecuteReader()

        If dr.HasRows = True Then
            dr.Read()
            TextBox1.Text = dr("IDTAG")
            TextBox6.Text = RitornaTesto(key, fun.Ritorna_Valore_Lingua("ITA"))
            TextBox5.Text = RitornaTesto(key, fun.Ritorna_Valore_Lingua("ENG"))
            TextBox7.Text = RitornaTesto(key, fun.Ritorna_Valore_Lingua("GER"))
            TextBox8.Text = RitornaTesto(key, fun.Ritorna_Valore_Lingua("FRA"))
            TextBox9.Text = RitornaTesto(key, fun.Ritorna_Valore_Lingua("RUS"))
            TextBox10.Text = RitornaTesto(key, fun.Ritorna_Valore_Lingua("ESP"))
            Session("TESTO") = key
        End If

        mdbCon.Close()

    End Sub