Vamos a ver, en Visual Basic 6 no permite almacenar valores nulos en las variables, ¿Estamos de acuerdo, no?
Bien, la solución sería la siguiente:
prox_unidad_responsable = IIf IsNull(r1.Fields("u_responsable"),"",r1.Fields("u_ responsable"))
Saludos