Access - AYUDA CON CUADRO DE LISTA

Antes de nada saludos a todos. Mi problema:
Tengo un cuadro de lista (lstPeticiones) que toma valores de una consulta (qrycomboPS) según el valor de un cuadro combinado (cboCliente). NO SOY CAPAZ DE QUE FUNCIONE Y NO SE QUE HAGO MAL, LLEVO DOS DIAS ENTEROS CON EL TEMA Y NO HAY MANERA, el codigo es:
Option Compare Database
Option Explicit

Const strSQL1 = "SELECT NumPeticion, Descripcion, CodPeticion " & _
" FROM qryComboPS WHERE NombreCliente = '"
Const strSQL2 = " ORDER by NumPeticion ASC;"
Private strSQL As String
Const strMsg1 = "Selecciona un Cliente de la lista"
Private Sub RellenarLista()
strSQL = strSQL1 & Me!cboCliente.Value & strSQL2
Me!lstPeticiones.RowSource = strSQL
Me!lstPeticiones.Requery
Me!lblLista.Caption = "Peticiones de Suministro de " & _
Me!cboCliente.Value
If Me!lstPeticiones.ListCount = 0 Then
Me!lblLista.Caption = "No " & Me!lblLista.Caption
End If
End Sub
Private Sub cboCliente_AfterUpdate()
Call RellenarLista
End Sub
Private Sub Form_Activate()
If Me!cboCliente.Value <> "" Then
Call RellenarLista
End If
End Sub

SI HAY ALGUN ALMA CARITATVA QUE ME PUEDA AYUDAR SE LO AGRADECERÍA.

GRACIAS DE ANTEMANO

PERDON!!!!
[email protected]