Dim penizee = "SELECT balance FROM iConomy WHERE username='" & login.Text & "' LIMIT 0,1"
        Dim cmd As New MySqlCommand()
        cmd.Connection = conn
        cmd.CommandText = penizee
        pripojeno.wel_money.Text = cmd.ExecuteScalar().ToString()