¿Cómo buscar dato de un textbox en dos tablas de access y mostrar resultados en listbox?

Quisiera ver la posibilidad de que me ayudarán a saber como buscar un dato en en dos tablas distintas y colocar los resultados en un listbox de excel. Esto lo he podido hacer pero solo consultando una tabla, me gustaría saber como encontrar datos en más de una tabla, agradezco sus comentarios.

Este es el código que manejo:

Gracias nuevamente. Saludos amigos.

Private Sub UserForm_Initialize()
Conexion
With ListBox1
    .ColumnCount = 5
    .ColumnWidths = "100;50;150"
End With
End Sub
Sub Conexion()
    Set Cnn = New ADODB.Connection
With Cnn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=C:\BDatos.accdb"
    .Open
End With
End Sub
Private Sub TextBox1_Change()
If TextBox1.Text = "" Then
        ListBox1.Clear
        Exit Sub
    Else
        Buscar
    End If
End Sub
Sub Buscar()
Set Rs = New ADODB.Recordset
SQL = "Select * From Base Where ID Like '%" & UCase(Trim(TextBox1)) & "%'"
With Rs
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open SQL, Cnn, , , adCmdText
End With
ListBox1.Clear
Do While Rs.EOF = False
    ListBox1. AddItem Rs. Fields("ID")
    ListBox1. List(ListBox1.ListCount - 1, 1) = Rs. Fields("Nombre")
    ListBox1. List(ListBox1.ListCount - 1, 2) = Rs. Fields("Apellido")
    ListBox1. List(ListBox1.ListCount - 1, 3) = Rs. Fields("Edad")
Rs. MoveNext
Loop
Rs.Close
Set Rs = Nothing
End Sub

Añade tu respuesta

Haz clic para o