Cita: objrsz.Open strSQLIx1, Conexion
tipo=objrsz.Fields("PID_DESCRIPCION")
objrsz.movenext
No indicas el error, pero esas tres lineas pueden dar cuatro errores diferentes por las siguientes causas:
1) Que no exista el campo PID_DESCRIPCION
2) Que no haya regresado registros la consulta y de todas formas intentas obtener un valor
3) Que solo te haya regresado UN registro y de todas formas haces un MoveNext
4) Que no tengas bien definido el objeto
Conexion que ahí usas
Para empezar, quita el MoveNext, segundo coloca un IF NOT objrsz.EOF Then antes de intentar leer el valor y por tercero, verifica que exista ese campo.
Saludos