Access - Marcar elemento de una lista

A ver tengo un listbox y un combo box, lo que quiero es que se pueda seleccionar un elemento del combobox, y este quede marcado(seleccionado) dentro del listbox...

Uso esto:

Private Sub cbEmpresa_Change()
buscarMarcar (cbEmpresa.ItemData(0))
End Sub

Private Sub buscarMarcar(ByVal cad As String)
Dim i As Integer
For i = 0 To Lista0.ListCount
If Lista0.ItemData(i) = cad Then
'como marco aqui un elemento de la lista??
End If
Next
End Sub

El problema lo tengo en que no se que propiedad ni como utilizarla para marcar el listbox...

Para marcar un elemento específico en un ListBox cuando se selecciona un elemento en un ComboBox, puedes utilizar la propiedad "Selected" del ListBox. A continuación te proporciono una solución:

1. Asegúrate de tener un ListBox llamado "Lista0" y un ComboBox llamado "cbEmpresa" en tu formulario.

2. En el evento "Change" del ComboBox "cbEmpresa", utiliza la función "buscarMarcar" para buscar y marcar el elemento correspondiente en el ListBox. El código podría ser similar a esto:


3. En la función "buscarMarcar", recorre los elementos del ListBox y verifica si el valor del ItemData coincide con la cadena proporcionada. Si es así, utiliza la propiedad "Selected" del ListBox para marcar el elemento. El código podría ser similar a esto:


En este código, la propiedad "Selected" del ListBox se establece en "True" para el elemento que coincide con el valor proporcionado en el ComboBox. Al utilizar la función "buscarMarcar" en el evento "Change" del ComboBox, se marcará automáticamente el elemento correspondiente en el ListBox cuando se seleccione un valor en el ComboBox.

Asegúrate de ajustar los nombres de los controles ("Lista0" y "cbEmpresa") según los nombres reales de tus ListBox y ComboBox en tu formulario.

Con esta solución, al seleccionar un elemento en el ComboBox, se marcará el elemento correspondiente en el ListBox, lo que permitirá identificar visualmente la selección realizada.