Visual Basic - AYUDA ACCESS

Hola de nueva cuenta, me gustaria que me ayudaran, desde la semana pasada he estado haciendo esto y nada mas no encuentro la solución.
Como hacer que el resultado de este codigo aparte de decirme cuantas veces existe el numero de componentes que tiene el numero de ensamble, me muestre cada uno de ellos en una caja de texto.
Espero me halla explicado lo que pasa es que soy nueva programando en el editor de visual basic de access 2002.

SALUDOS TOTITA ...

seria algo asi para que la coincidencia te muestre cuantas son y cuales son en los textlist

Dim strSQL As String
Set db = OpenDatabase("rutadebasededatos.mdb")
SQL = "nombre de la tabla"
strSQL = "SELECT * FROM nombredelatabla WHERE campoabusdelatabla LIKE '" & campoabuscar & "'"
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
Do Until rs.EOF
list1.AddItem rs("componente1")
list2.AddItem rs("componente2")
list3.AddItem rs("componente3")
rs.MoveNext
Loop
Exit Sub
End If


saludos espero te sirva

Gracias por tu ayuda energy, mira este es el codigo que estoy utilizando, y me muestra la cantidad de componentes que encuentra en el numero de ensamble que le estoy dando.
El numero de ensamble lo escribo en una caja de texto y en el codigo lo asigno a una variable.
Estoy utilizando las cajas de texto de visual basic de access 2002...

Private Sub BUSCAR_Click()
Dim sql As Database
Dim sales As Recordset
Dim strSQL As String
Dim strPalabrabuscada As String
Dim cuentapalabra As Integer
strPalabrabuscada = NBUSCA
Set sql = DBEngine.OpenDatabase("E:\PROYECTO.mdb")
strSQL = "SELECT * FROM Tubular where no_ensamble like '*" & NBUSCA & "*'"
Set sales = sql.OpenRecordset(strSQL, dbOpenDynaset)
With sales
If .EOF And .BOF Then 'Si está al comienzo y al final del Recordset al mismo tiempo.
MsgBox "No se encuentra o no existe el Numero de Ensamble"
NBUSCA = ""
Etiqueta25.Caption = "CANTIDAD"
GoTo Salida
Else
.MoveLast
.MoveFirst 'Voy al primer y al último registros con el objetivo de contar los registros.
End If
cuentapalabra = sales.RecordCount
Etiqueta25.Caption = cuentapalabra 'aqui puedes meter el msgbox

If NBUSCA = "" Then
MsgBox "DEBE INGRESAR UN NUMERO DE ENSAMBLE"
Etiqueta25.Caption = "CANTIDAD"
End If
Salida:
sales.Close
End With
sql.Close

End Sub

Otro gran favor, me podrías explicar el codigo, que me pasaste muy amablemente? espero sea posible...

GRACIAS y SALUDOS.