Falla en formulario de búsqueda

Hola! Tengo un problemita con un formulario de búsqueda, que básicamente lo que hace es obtener mediante un text box el nombre de un cliente o parte de él, mostrar en el listbox los clientes cuyo nombre coincida y, al cliquear sobre el nombre, mostrar en un segundo listbox las compras que ese cliente haya realizado. Ahí surge mi problema.

El primer listbox (el que lista los nombres de clientes) consta de 3 columnas: ID, nombre y apellido. La primera está oculta, y a ella está configurada la propiedad "Bound column".

Pero he aquí que no me muestra nada en el segundo listbox. Cuando cliqueo en él, se detiene la ejecución por uso inválido de Null. Efectivamente, al controlar con el debugger, el valor asociado a ese listbox es Null, pero no logro descubrir porqué.

Este es el código del listbox que no funciona:

Private Sub lstRecetas_Click()
 Dim clienteID, servicioID As Integer
 clienteID = Me.Lista.Value
 servicioID = Me.lstRecetas.Value
 DoCmd.OpenForm "Cliente", , , "[Id] =" & clienteID, acFormEdit
 Dim mysql As String
 mysql = "SELECT * FROM Servicios"
 mysql = mysql & " WHERE [Id] = " & servicioID
 Forms!Cliente.[Subformulario Servicios].Form.RecordSource = mysql
End Sub

Cualquier ayudita que pudieran darme será muy agradecida!