Filter em Consulta (Recordset)

Olá

Senhores

não estou conseguindo fazer o filter em um resultado de uma consulta no
tenho uma tabela que chama "tabela" com as seguintes informações

codigo      nome
1            samantah
2            ana
3            Julia
5            Yasmin
6            Jenifer
7            Sara
8            Gisele
9            Sandra
10           Leticia

Minha sub
Sub consultar()
Dim banco As Database
Dim consulta As Recordset
Dim consulta2 As Recordset
Dim resultado As QueryDef
Set banco = CurrentDb
Set consulta = banco.OpenRecordset("select codigo,nome from tabela")

For Each resultado In banco.QueryDefs
If resultado.Name = "resultado" Then banco.QueryDefs.Delete resultado.Name

Next
consulta.Filter = "codigo > 5"

If consulta.RecordCount > 0 Then

While Not consulta.EOF

Debug.Print consulta(0), consulta(1)

consulta.MoveNext
Wend

End If


End Sub

o Resultado era para ser
5            Yasmin
6            Jenifer
7            Sara
8            Gisele
9            Sandra
10           Leticia

mas ele não esta aceitando o filter

consulta.Filter = "codigo > 5"

por favor me ajudem

ja tentou sem as aspas?