Buscar palabra en toda la tabla

Function BusquedaTotal(strTextoBusq As String)
    ' xavi (mayo 2006)
    ' 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
    
    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 & "];")
            rst.MoveFirst
            Do Until rst.EOF
                For Each fld In rst.Fields
                    If InStr(1, fld.value, strTextoBusq, vbTextCompare) Then
                        Debug.Print "   En tabla: " & Tabla.Name
                        Debug.Print "   Campo:" & fld.Name
                        Debug.Print "   Posicion:" & rst.AbsolutePosition + 1
                        Debug.Print "   Cadena entera: " & rst(fld.Name)
                        contador = contador + 1
                    End If
                Next
                rst.MoveNext
            Loop
        End If
    Next
    If contador = 0 Then
        Debug.Print "No se encontraron coincidencias"
    Else
        Debug.Print "Total coincidencias: " & contador
    End If
End Function