formulario se debe llenar con registros de una BD access

[mc_quake]

son campos te texto
:

<form name="form1" method="post" onSubmit="return validar()">
<table width="741" border="0" align="center" cellpadding="0" cellspacing="0" class="tbl_marco1">
<tr valign="top">
<td width="188" bgcolor="#D8ECFC"> <div align="left"><strong><font color="#0000FF" size="2" face="Trebuchet MS">
Entidad</font></strong></div></td>
<td width="10" bgcolor="#D8ECFC"> <div align="left"><strong><font size="2" face="Trebuchet MS"><font color="#0000FF">:</font></font></strong></div></td>
<td width="223" bgcolor="#D8ECFC"> <div align="left"><strong><font size="2" face="Trebuchet MS"><font color="#0000FF">
<select name="EMTIDAD" size="1">
<%
Set Conexion = Server.CreateObject ("ADODB.Connection")
Conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Bases\Reclamo.mdb;"

Set Registros1 = Conexion.Execute("Select DIR_ENTIDAD From DIRECCIONES")
Direccion =Registros1("DIR_ENTIDAD")
While Not Registros1.EOF
Response.write "<option value= "&Registros1("DIR_ENTIDAD")&"> "&Registros1("DIR_ENTIDAD")&"</option>"
Registros1.MoveNext
Wend

%>
</select>
</font></font></strong></div></td>
Set Registros = Conexion.Execute("Select * From DIRECCIONES WHERE DIR_ENTIDAD = '"&Direccion&"'")
<td width="158" bgcolor="#D8ECFC"> <div align="left"><strong><font size="2" face="Trebuchet MS"><font color="#0000FF">Direccion
Entidad </font></font></strong></div></td>
<td width="10" bgcolor="#D8ECFC"> <div align="left"><strong><font size="2" face="Trebuchet MS"><font color="#0000FF">:</font></font></strong></div></td>
<td width="152" bgcolor="#D8ECFC"> <p align="left"> <strong><font size="2" face="Trebuchet MS"><font color="#0000FF">
<input name="DIRENTIDAD" type="text" size="30" value="<%=Registros("DIR_DIRECCION")%>"> </font></font></strong></p></td>
</tr>
<tr valign="top">
<td><div align="left"></div></td>
<td><div align="left"></div></td>
<td><div align="left"></div></td>
<td><div align="left"></div></td>
<td><div align="left"></div></td>
<td><div align="left"></div></td>
</tr>
<tr valign="top">
<td bgcolor="#D8ECFC"> <div align="left"><strong><font size="2" face="Trebuchet MS"><font color="#0000FF">Ciudad
Entidad</font></font></strong></div></td>
<td bgcolor="#D8ECFC"> <div align="left"><strong><font size="2" face="Trebuchet MS"><font color="#0000FF">:</font></font></strong></div></td>
<td bgcolor="#D8ECFC"> <div align="left"><strong><font size="2" face="Trebuchet MS"><font color="#0000FF">
<input name="CIUDENTIDAD" type="text" size="25" value="<%=Registros("DIR_CIUDAD")%>">
</font></font></strong></div></td>
<td bgcolor="#D8ECFC"> <div align="left"><strong><font color="#0000FF" size="2" face="Trebuchet MS">Atenci&oacute;n
Entidad </font></strong></div></td>
<td bgcolor="#D8ECFC"> <div align="left"><strong><font size="2" face="Trebuchet MS"><font color="#0000FF">:</font></font></strong></div></td>
<td bgcolor="#D8ECFC"> <p align="left"> <strong><font size="2" face="Trebuchet MS"><font color="#0000FF">
<input type="text" name="ATENTIDAD" value="<%=Registros("DIR_ATENCION")%>">
</font></font></strong></p></td>
</tr>
</Table>
</Form>

lo que hago es ejecutar la consulta en que esta de color verde para rellenar los 4 campos de mi formulario pero solo funciona la primera ves que carga la pagina ya que cuando seleccioono otra ENTIDAD en el Select lo otros campos de mi for mantienen los valores de la ENTIDAD ANTERIOR