Manca un pezzo alla query secondo me.
Non vedo il nome del campo username e il nome del campo password.

Visita.CommandText = "UPDATE tb_clienti SET Login = Login + 1 WHERE (username = '" + Replace(Visita__varUtente, "'", "''") + "' AND password = '" + Replace(Visita__varPassword, "'", "''") + "') "