userstatus.Open "UPDATE users SET status = 1 WHERE user = '" + user.Text + "';", conn

Prova sostituendo i + con le &

userstatus.Open "UPDATE users SET status = 1 WHERE user = '" & user.Text & "';", conn