Visual Basic - rdoquery -- Urgente!!!

Quiero crear una consulta en Access, pero no se que pasa que no se crea, si alguien me pudiera hechar una mano. Gracias
Este es el codigo:

Dim cn As New RDO.rdoConnection
Dim strsql As String
Dim qr As New rdoQuery

cn.Connect = \"DSN=BD_CARMEN\"
cn.EstablishConnection
strsql = \"SELECT top 2 * From PAI_ValoresCalculoEmision ORDER BY idfecha DESC\"
Set qr = cn.CreateQuery(\"CON\", strsql)

qr.Close
cn.Close