dim cm as New SqlCommand("select count(*) from Users where u