Actualizar el origen de datos de un cuadro de lista cuando busco un dato en access 2010

Un ejemplo de lo que buscar es el vídeo siguiente. La diferencia es aquí se busca por un ID .

Revísalo tal vez te ayude el código del que utilizan esta en la descripción del video.

https://www.youtube.com/watch?v=JtVbc323tmY&index=2&list=PLsbpurIPHmoJm-7po7cJvTTp3TfZrEM19 

Gracias Antonio, en cuanto pueda lo miro y veo si me sirve!!!

Jorge: Prueba éste código sustituyendo TextoABuscar por lo que tú tengas y si puedes cambia el Nombre de CUADRO DE TEXTO por un Nombre sin Espacios, sea el que yo pongo u otro cualquiera.

'Esta declaración de variables fuera de Procedimientos. 
'Inmediatamente debajo del Option Compare.....y Option Explicit
Dim StrSQL As String
Dim dbs As DAO.Database, Rst As DAO.Recordset
Private Sub TextoABuscar_LostFocus()
StrSQL = ""
Call ActualizaLista
StrSQL = "SELECT DISTINCT PERSONAS.NOMBRE FROM PERSONAS "
StrSQL = StrSQL & "WHERE PERSONAS.NOMBRE LIKE '" & "*" & Me.TextoABuscar.Value & "*" & "' " & "ORDER BY PERSONAS.NOMBRE"
Set dbs = CurrentDb()
Set Rst = dbs.OpenRecordset(StrSQL)
If Rst.RecordCount > 0 Then
       'Llamamos al procedimiento de Actualizar los datos de la Lista7
       ActualizaLista
Else
       MsgBox "No se encontro la palabra tecleada", vbOKOnly, "DATO NO ENCONTRADO"
       'Esta línea manda el Foco a un Botón, para hacer un rebote de Foco, pero puede ser otro control distinto al TextoABuscar
       Me.BtnSalir.SetFocus
       'Aquí es donde recuperamos el Foco en el cuadro de Texto
       Me.TextoABuscar.SetFocus
End If
Rst.Close
Set Rst = Nothing
Set dbs = Nothing
End Sub
Sub ActualizaLista()
Me.Lista7.RowSource = StrSQL
Me.Lista7.Requery
End Sub

Mis saludos >> Jacinto

Jacinto, muchas gracias por tu pronta respuesta, te muestro el código completo que escribí. Veras que no hay mucha diferencia con el tuyo, sólo que vos trabajas con DAO y yo estoy aprendiendo con ADO. La búsqueda la realizo con un botón en una tabla con datos de personas.

Private Sub Comando9_Click()
Dim Miconexion As New ADODB.Connection
Set Miconexion = CurrentProject.Connection
Dim Instruccion As String
Instruccion = "SELECT * FROM PERSONAS WHERE NOMBRE LIKE '" & txt_nombre & "%'"
Dim MiRecordset As New ADODB.Recordset
MiRecordset.Open Instruccion, Miconexion
If MiRecordset.BOF Then
    MsgBox "No encontrado"
Else
    txt_nombre = MiRecordset!nombre
    txt_apellidos = MiRecordset!apellidos
    txt_edad = MiRecordset!edad
End If
Lista7.RowSource = Instruccion
Lista7.Requery
MiRecordset.Close
Set MiRecordset = Nothing
Miconexion.Close
Set Miconexion = Nothing
End Sub

He verificado que encuentra el valor buscado y he colocado el valor de otros campos en los TextBox, lo único que no puedo lograr es que la lista me muestre todos los registros que en el campo nombre coincidan con lo que he colocado en el TextBox