Protected Sub POPOLA()
        Dim mdbCon As New MySql.Data.MySqlClient.MySqlConnection()
        Dim dr As MySql.Data.MySqlClient.MySqlDataReader
        Dim constring As String, queryString As String

        constring = "Server=62.149.150.78;Database=Sql202429_2;User id=Sql202429;Pwd=******;Port=3306;"

        mdbCon.ConnectionString = constring

        queryString = "SELECT * FROM [PROVA];"

        Dim command As New MySql.Data.MySqlClient.MySqlCommand(queryString, mdbCon)
        command.Connection.Open()

        dr = command.ExecuteReader()
        If dr.HasRows = True Then
            Do While dr.Read
                Label1.Text = dr("CODICE")
                Label2.Text = dr("DESCRIZIONE")
                Label3.Text = dr("IMPORTO")
                Exit Do
            Loop
        Else
            Label1.Text = "NON TROVATO"
        End If
        mdbCon.Close()

    End Sub