wou que bien, y como dice MinusFour, es raro, no cuadra, bug? Y lo ultimo, si puedes especificar version del windows server(ultimas actualizaciones cargadas), para averiguar sobre eso del firewall.
Dim sql AsString="UPDATE USUARIOS SET PASSWORD = @PASS WHERE USUARIO = @USER"
Dim conexion AsNew Data.SqlClient.SqlConnection(miStringConeccion)
Dim comando AsNew Data.SqlClient.SqlCommand(sql, conexion)
try
conexion .Open()
comando.Parameters.AddWithValue("USER", usuario)
comando.Parameters.AddWithValue("PASS", password)
comando.ExecuteNonQuery()
conexion .Close()
Catch ex As Exception
'ERROR
ThrowNew Exception("Asi quedo la consulta y fue error: "& comando.CommandText&" ---> "& ex.Message().ToString)
conexion.Close()
EndTry
Recuerda establecer miStringConeccion. Lo otro puede ser, que en tus variables usuario y/o password, estes pasando algun dato malo. SI te da error este codigo, postea la excepcion.
EDIT: Pensandolo bien, intenta hacer funcionar tu codigo, pero sin estar conectado a red alguna, ni wifi ni cable. Te estas auto-referenciando, por 127.0.0.1? localhost? o tu ip lan o wan? nombre de equipo? Caracteristicas de tu Servidor?
Esos pc's conectados en lan, son active directory?