form con option value tra tre tabelle

[Prof_Mauri]

Ciao Ragazzi, ho un problemino da risolvere;
Innanzitutto ho tre tabelle in access :

Clienti : IDCliente, Cognome e Nome, etc;
Tipologie Trattamenti : IDTipo Trattamento, Descrizione Trattamento, IDCliente;
Trattamenti : IDTrattamento, Data, IDTipotrattamento, IDClente.

Io accedo alla scheda personale del cliente con il seguente codice :

<%
id = trim(request.querystring("id"))
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * FROM Clienti WHERE IDCliente="& id)
Do while NOT objRs.EOF
%>
<table>
<tr>
<td align="left"><font size="4">Cognome e Nome</font>
</td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write objRs("Cognome e Nome")%>
<tr>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write ("Inserisci nuovi appuntamenti")%>
</td>
</table>
<%objRs.Movenext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>

Il form "modulo_inserimento_appuntamenti_cliente.asp" oltre che ricevere l'idcliente dalla scheda precedente dovrebbe avere il campo "IDTipo Trattamento" come option value, ma non sto riuscendo!
Il codice che sto provando è il seguente :

<%
id = trim(request.querystring("id"))
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * FROM Clienti WHERE IDCliente="& id)
Do while NOT objRs.EOF
%>
<form method="POST" action="conferma_inserimento_appuntamenti_cliente. asp?id=<%=objRs("IDCliente")%>">
<table>
<tr>
<td>
Data
</td>
<td>
<input type="text"
name="Data" size="20">
</td>
</tr>
<tr>
<td>
Ora
</td>
<td>
<input type="text"
name="Ora" size="20">
</td>
</tr>
<tr>
<td>
Trattamento
</td>
<td>
<select name="IDTipo Trattamento">
<option value="">seleziona</option>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT [IDTipo Trattamento] FROM Trattamenti")
if not objRs.eof then
do until objRs.eof
%>
<option value="<%=objRs("IDTipo Trattamento")%>"></option>
<%
objRs.moveNext
loop
%>
</select>
<%
end if
objRs.close
set objRs = nothing
objConn.close
set objConn = nothing
%>
</select>
</td>
</tr>
<tr>
<td>
<input type="submit" value="Inserisci" name="x">
</td>
</tr>
<%objRs.Movenext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>

Chi può aiutarmi a correggerlo?

[Prof_Mauri]

Ok, come non detto, trovato l'errore.