Buscar palabra en toda la tabla

   Gracias Xavi, por dos veces me ha resultado útil, en esta segunda lo he adaptado para otro tipo de lectura de los datos que salgan más agrupados.
Sub BusquedaTotal_test()

    Call BusquedaTotal("210160")

End Sub

Function BusquedaTotal(strTextoBusq As String)
'Sub BusquedaTotal()

    'Origen: xavi (mayo 2006)
    'Adaptación: McPegasus (mayo 2021)
    'Atencion: Se debe activar la referencia Microsoft DAO 3.x Object Library

    Dim rst                                     As DAO.Recordset
    Dim Tabla                                   As TableDef
    Dim fld                                     As Field

    Dim contador                                As Integer
    Dim intTablas                               As Integer

    Dim strTableNamePrevious                    As String
    Dim strFielNamePrevious                     As String

'strTextoBusq = "210160"

    Debug.Print "Coincidencias encontrada con el texto: " & strTextoBusq
    contador = 0
    For Each Tabla In CurrentDb.TableDefs
        If Left(Tabla.Name, 4) <> "MSys" Then
            Set rst = CurrentDb.OpenRecordset("SELECT * FROM [" & Tabla.Name & "];")

            If Not rst.EOF Then
                rst.MoveFirst

                Do Until rst.EOF
                    For Each fld In rst.Fields
                        If InStr(1, fld.Value, strTextoBusq, vbTextCompare) Then
                            If Not Tabla.Name = strTableNamePrevious Then
                                Debug.Print
                                Debug.Print vbTab; "En tabla: " & Tabla.Name

                            End If

                            If Not fld.Name = strFielNamePrevious Then
                                If Not blnField Then
                                    Debug.Print vbTab; vbTab; "Campo:"; vbTab; fld.Name
                                    Debug.Print vbTab; vbTab; vbTab; vbTab; vbTab; vbTab; vbTab; "Registro"; vbTab; vbTab; "Contenido completo"
                                End If
                            End If

                            Debug.Print vbTab; vbTab; vbTab; vbTab; vbTab; vbTab; vbTab; rst.AbsolutePosition + 1; vbTab; vbTab; vbTab; rst(fld.Name)

                            contador = contador + 1

                            strFielNamePrevious = fld.Name
                            strTableNamePrevious = Tabla.Name

                        End If
                    Next
                    rst.MoveNext

                Loop
            End If
        End If
    Next

    Debug.Print

    If contador = 0 Then
        Debug.Print "No se encontraron coincidencias"

    Else
        Debug.Print "Total coincidencias: " & contador

    End If

End Function