Visual Basic - Filtro mediante InputBox

No me sale el filtro, abre el formulario pero no encuentra el o los registros filtrados, siendo que si existen en la tabla.

principiante. Gracias.....

Private Sub Comando11_Click()
Dim Cliente As String
Dim filtro As String

Do

Cliente = InputBox("Ingrese el número de cliente a buscar:", "BÚSQUEDA")

If Cliente = "" Then Exit Do 'Si pulsa en cancelar que salga
Loop Until IsNumeric(Cliente) 'Obligar a q sea numérico

On Error Resume Next

Cliente = "CANELADOS 2010" = base.OpenRecordset(Cliente, dbOpenDynaset) 'es una funcion que me enseña todos los campos en sus txts correspondientes

filtro = "[Cliente] = 'Cliente'"
stDocName = "CANCELADOS 2010"
DoCmd.OpenForm stDocName, , , filtro

If Err Then
MsgBox "No se ha encontrado ningun registro", vbInformation, "NO EXISTE"

End If

End Sub

Obtienes la variable Cliente en un Input y despues la pierdes porque haces cliente= "CANELADOS 2010" etc
También me da impresion de que no estás en el foro adecuado.