Hente fra db via dropdown list

Jeg er ved at lave et lille program der skal hente nogen data via en dropdown list.
men den vil ikke vise dataene.

Dette er dropdownen som virker fint:
<%
Dim DataConn
Dim Stromr
Dim SQL
%>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
Set Stromr = Server.CreateObject(\"ADODB.Recordset\")
%>

<%

DataConn.Open \"DBQ=\" & Server.Mappath(\"omr.mdb\") &  \";Driver={Microsoft Access Driver (*.mdb)};\"

SQL = \"SELECT Vejnavn FROM omr\"
Stromr.Open SQL, DataConn
%>

<form method=\"POST\" action=\"afhentningsdato.asp\">
<Select Name=\"vejnavn\" size=\"1\">
<%While Not Stromr.EOF%>

<option value=\"<%= Stromr(\"Vejnavn\") %>\"><%= Stromr(\"Vejnavn\") %></option>

<%
Stromr.MoveNext
Wend
%>

<%
Stromr.Close
Set Stromr = Nothing
DataConn.Close
Set DataConn = Nothing
%>
</Select>
<input type=\"submit\" value=\"Submit\">
</form>

Det er i denne her den ikke vil vise dataene:
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<dl>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/omr.mdb\")
Conn.Open DSN

strSQL = \"select * From omr where ID=\"

Set dataconn = Conn.Execute(strSQL)

Response.Write \"<dt>afhentningsdato: </dt><dd>\" 
Response.Write dataconn(\"Indsamlingsdag\")

Conn.Close
Set Conn = Nothing
%>
</body>
</html>

HJÆLP! :)