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()