Actualizar datos en un formulario desde un subformulario

Buenas tardes expertos tengo una tabla de clientes con su correspondiente formulario, dentro de este hay un cuadro de lista por el que puedo seleccionar el campo empresa filtrado por cualquier parte del nombre, en este subformulario quiero hacer la selección y por medio de un botón de comando que me actualice los datos en el formulario, no soy para nada ducho en vba por eso estuve buscando y encontré un código que funciona para abrir un formulario independiente con esos datos, quise reformarlo colocando el código como si se tratara de un cuadro combinado (que funciona perfecto pero no me permite filtrar por cualquier parte del nombre) pero no funciona, pego código que coloque en el botón, y comentado como quise reformarlo, de ser necesario puedo enviar base de datos para una mejor comprensión, Muchas gracias.

Private Sub Comando1_Click()
'Declaramos las variables
Dim ctlList As Control
Dim Opcion As Variant
Dim miSeleccion As String
'Iniciamos la estructura del filtro
miSeleccion = "[empresa] IN ("
Set ctlList = Me.lstPersonas
'Cogemos los valores seleccionados en el cuadro de lista, y los añadimos al filtro
For Each Opcion In ctlList.ItemsSelected
miSeleccion = miSeleccion & ctlList.ItemData(Opcion) & ","
Next Opcion
'Si la longitud del filtro es 9, es que no seleccionamos ninguna opcion
If Len(miSeleccion) = 9 Then
MsgBox "No has seleccionado ninguna persona", vbInformation, "AVISO"
Exit Sub
End If
'Quitamos la última coma(,) del filtro
miSeleccion = Left(miSeleccion, Len(miSeleccion) - 1) & ")"
' Buscar el registro que coincida con el control.
' Set miSeleccion = Me.Recordset.Clone
' miSeleccion.FindFirst "[Empresa] = '" & Me!clientes & "'"
' Me.Bookmark = rs.Bookmark
End Sub