[Resolvido]Where com Date que não funciona...

Caros colegas, não consigo construir esta Where com uma variável.
Desta forma funciona:
Dim RsRPAmes As DAO.Recordset
Set RsRPAmes = CurrentDb.OpenRecordset("select * from tabrpa where rpadatarpa = datevalue('05/2013') order by rpadatarpa")

Mas se coloco assim informa que nenhum registro foi encontrado:
Dim StrRpames As String
StrRpames = InputBox("Qual o mês da pesquisa? Informe mm/yyyy", "Atenção!", Format(Date - 30, "mm/yyyy"))
Dim RsRPAmes As DAO.Recordset
Set RsRPAmes = CurrentDb.OpenRecordset("select * from tabrpa where format(rpadatarpa,'mm/yyyy') = " & Format(strRpames, "mm/yyyy") & " order by rpadatarpa")

Agradeço desde já!
At
MPS

Por que não colocar um campo para o usuário digitar a data ao invés da ImputBox? Não sou muito afeito à elas.

Bom dia a todos;

Para o que pretende será assim;

Dim StrRpames As String
Dim RsRPAmes As DAO.Recordset

StrRpames = InputBox("Qual o mês da pesquisa? Informe mm/yyyy", "Atenção!", Format(Date - 30, "mm/yyyy"))

Set RsRPAmes = CurrentDb.OpenRecordset("select * from tabrpa where format(rpadatarpa,'mm/yyyy') = '" & StrRpames & "' order by rpadatarpa")

Testado e a funcionar.

JPaulo, perfeito!
Pensei que os ' ' só fossem usados com o Like.
Obrigado mais uma vez!
At
MPS

Obrigado pelo retorno o forum agradece.