Consulta de dos tablas por registros

[Uefor]

Hola a tod@s
- Tengo dos tablas relacionadas entre si con varios campos en cada una, me gustaría mostrar los registros de la primera tabla en campos de texto vinculados un select principal (será el id de la tabla1).
- Al mismo tiempo me gustaría mostrar también en el mismo formulario campos de texto con los registros de la tabla2 vinculados al select de la primera, no se si me explico.

El caso es que me surgen dos problemas con lo que tengo hecho:

- El primero... no queda fijado el select al seleccionarlo, siempre vuelve al primer registro de la tabla aunque la información del resto de campos de la tabla1 si cambia.

- El segundo... al intentar leer los registros de la segunda tabla me da un error (Data type mismatch in criteria expression.)

Este es el código que tengo (el campo común en ambas tablas es IdSalidas):

Código:

<form name=formulario>
 <p align="left"><strong>N&ordm; Salida:</strong>
 <select name=IdSalidas class="fc_main" onChange="location.href('vis_listas.asp?IdSalidas=' + formulario.IdSalidas.options[formulario.IdSalidas.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = MM_cnx_salidas_STRING
 
SQL_insc="select * from salidas order by IdSalidas asc"
 
set RS_insc=createobject("ADODB.Recordset")
RS_insc.open SQL_insc,conn
do while not RS_insc.eof
 
IdSalidas = RS_insc("IdSalidas")
p = request.querystring("IdSalidas")
if p <> "" then
 
 if p = IdSalidas then
 response.write "<option value="&IdSalidas&"selected>"&IdSalidas&"</option>"
 
 elseif p <> IdSalidas then
 
 response.write "<option value="&IdSalidas&">"&IdSalidas&"</option>"
 end if
else
response.write "<option value="&IdSalidas&">"&IdSalidas&"</option>"
end if
    
RS_insc.movenext
 loop
RS_insc.close
%>
</select>
<%
if request.querystring("IdSalidas") <> "" then %>
     
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = MM_cnx_salidas_STRING
   
SQL_dat="select * from salidas where IdSalidas="&request.querystring("IdSalidas")&" order by Fecha asc"
set RS_dat=createobject("ADODB.Recordset")
RS_dat.open SQL_dat,conn
do while not RS_dat.eof
 
IdSalidas = request.querystring("IdSalidas")
Fecha = RS_dat("Fecha")
Hora = RS_dat("Hora")
Destino = RS_dat("Destino")
Barco = RS_dat("Barco")
Incidencias = RS_dat("Incidencias")
%> 
  &nbsp;&nbsp;Fecha: 
       <input type="text" class="fc_main" value="<%=Fecha%>" size="15" readonly="true">
 &nbsp;&nbsp;Hora: 
       <input type="text" class="fc_main" value="<%=Hora%>" size="9" readonly="true">
  &nbsp;&nbsp;Lugar: 
       <input type="text" class="fc_main" value="<%=Destino%>" size="25" readonly="true">
  &nbsp;&nbsp;Barco:
       <input type="text" class="fc_main" value="<%=Barco%>" size="17" readonly="true"><br><br>
  <strong>Incidencias:</strong> 
       <input type="text" class="fc_main" value="<%=Incidencias%>" size="35" readonly="true">
</p>
<strong>Buceadores:</strong><br>
         
<%
SQL_buzos="select * from buzos_incl where IdSalidas="&request.querystring("IdSalidas")&" order by Socio asc"
set RS_buzos=createobject("ADODB.Recordset")
RS_buzos.open SQL_buzos,conn
do while not RS_buzos.eof
 
IdSalidas = request.querystring("IdSalidas")
Socio = RS_buzos("Socio")
Nombre = RS_buzos("Nombre")
DNI = RS_buzos("DNI")
TIT = RS_buzos("TIT")
%>
 
       <input type="text" class="fc_main" value="<%=Socio%>" size="8" readonly="true">
&nbsp;&nbsp;
       <input type="text" class="fc_main" value="<%=Nombre%>" size="50" readonly="true">
&nbsp;&nbsp;
       <input type="text" class="fc_main" value="<%=DNI%>" size="10" readonly="true">
&nbsp;&nbsp;
       <input type="text" class="fc_main" value="<%=TIT%>" size="20" readonly="true">
  
<%
RS_dat.movenext
 loop
RS_buzos.movenext
 loop
RS_dat.close
RS_buzos.close
%>
<% end if %>     
</form>

Muchas gracias de ante mano, espero que puedan ayudarme...
SaLu2