Como puedo Filtrar un la informacion de un Informe de Access desde VB 6

[Escorpion_Negro]

Hola a todos y muchas gracias a los que me puedan contestar tengo la siguiete problema tengo una tabla llamada DiaDePago en la cual creo un informe en access y lo llamo desde Visual Basic como un reporte ahora resulta que esta tabla tiene los siquiente datos

Cod_Dia_Pago Dia_Pago
1........................Lunes
2........................Martes
3........................Miercoles
4........................Jueves
5........................Viernes
6........................Vencido
7........................Fecha Fija

y quiero filtrar en mi reporte por ejemplo todos Dias de Pago (tabla : DiaDePago) que tengan como fecha el lunes (1 Lunes) para conectarme al informe de Access desde VB tengo la siquiete programacion

Private Sub cmdFiltro_De_Dias_Click()
Dim Filtro
Dim Const acNormal = 0
Dim Const acPreview = 2
Dim Const acExit = 2
Const cDatabaseName = "S:\CONTABIL\General\Deudores\SistemaDeudores. mdb"
Const cReportName = "Dia_Pago"
Const cAppName = "Asset Manager"
Dim objAccess As Object

Set objAccess = CreateObject("Access.Application")
objAccess.opencurrentdatabase cDatabaseName, False

objAccess.DoCmd.OpenReport cReportName

End Sub

en eso estamos bien cuando llama el informe pero cuando quiero filtrar me aroja un error aqui tengo la programacion

Private Sub cmdFiltro_De_Dias_Click()
.
.
.
.
.
Filtro = "[Cod_Dia_Pago] = " & 1
objAccess.DoCmd.Filter , Filtro
objAccess.DoCmd.ApplyFilter = True
objAccess.DoCmd.OpenReport cReportName

End Sub

alguien que me pueda ayudar por fa como se puede filtrar el informe de access desde VB