formulario se debe llenar con registros de una BD access

[JuanRAPerez]

aqui le indicas que direccion ser igual siempre al primer registro

Set Registros1 = Conexion.Execute("Select DIR_ENTIDAD From DIRECCIONES")
Direccion =Registros1("DIR_ENTIDAD")

y aqui le dices que te tome ese valor para llenarte los siguientes campos

Set Registros = Conexion.Execute("Select * From DIRECCIONES WHERE DIR_ENTIDAD = '"&Direccion&"'")

quiere decir que siempre te mostrara el mismo valor para direccion porque lo seteas de esa forma, porque no haces un request.

ademas tu combo se llama "EMTIDAD"

deverias de hacer que tu segudno sql te tome ese valor

Set Registros = Conexion.Execute("Select * From DIRECCIONES WHERE DIR_ENTIDAD = '"& request("EMTIDAD") &"'")