hola, tengo un duda con el codigo

[m_agt]

hola estoy haciendo un ejemplo suepr basico de aso, es sobre consultas a una tabla me funciona todo bien sin error pero no me sale lo q deberia, el ejemplo se trata de:
tengo dos tablas una con preguntas y otra con respuestas la de las preguntas tienes campos un identificador de pregunta la pregunta y la otra tabla tiene dos campos identificador de pregunta y respuestas lo que yo quiero hacer es que se despliegue en pantalla la preguntas con sus respectivas respuestas pero no funciona solo me muestras las preguntas pero las respuestas no el codigo es el siguiente

<%
dim oConn, rs, con2, rs2, identificador
set oConn = server.createobject("ADODB.connection")
set rs = server.createobject("ADODB.recordset")
oConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./ejemplo.mdb")
sql = "SELECT pregunta, idpregunta FROM pregunta "
rs.open sql, oConn,3,1
do while not rs.eof
identificador=rs("idpregunta")
response.Write(identificador)
response.Write " "&rs("pregunta")&"<BR>"
set rs2 = server.createobject("ADODB.recordset")
sql="SELECT respuesta FROM respuesta WHERE idpreguntas='&identificador&'"
rs2.open sql, oConn,3,1
do while not rs2.eof
response.write " "&rs2("respuesta")&"<br>"
rs2.movenext
loop
rs.movenext
loop
%>

si yo cambio el where por un valor fijo me meustra lo q deberia pero si pongo una vgariable no pasa nada no muestra nada si alguien sabe donde esta el error por favor digamelo, gracias,,,

[Muzztein]

si idpreguntas es de tipo de dato numerico

sql="SELECT respuesta FROM respuesta WHERE idpreguntas=" & identificador

si no

sql="SELECT respuesta FROM respuesta WHERE idpreguntas= '" & identificador & "'"

[m_agt]

muchas gracias Muzztein , me funciono, muchas gracias