Eje!!! que tal compañero Juan Fco. Lo que debes hacer es en vez de "EXPEDIENTE" colocar el numero de la posicion de ese campo en el select... si tu select fue por decir:
select codigo, nombre, expediente from tabla
el codigo para obtener el campo expediente debera ser:
Dim Exp as integer
Exp=rs.Fields(2)
el conteo empieza desde cero, por eso expediente es el dos