Option Compare Database
Public Sub SearchTables(SearchString As String)
Dim tdf As DAO.TableDef
Dim sTable As String
Dim sField As String
Dim sMsg As String
sMsg = ""
For Each tdf In CurrentDb.TableDefs
    sTable = tdf.Name
    sField = SearchTable(sTable, SearchString)
    If sField <> vbNullString Then
        sMsg = sMsg & vbCrLf & "Table = " & sTable & "       Field = " & sField
    End If
Next
Forms!Search!Text21 = sMsg
End Sub

Public Function SearchTable(Tablename As String, SearchString As String)
Dim rs As DAO.Recordset
Dim i As Integer
Dim sReturn As String
Set rs = CurrentDb.OpenRecordset(Tablename, dbOpenDynaset, dbOpenDynamic)
Do Until rs.EOF
    For i = 0 To rs.Fields.Count - 1
        If rs.Fields(i).Type = dbText Then
            If InStr(1, rs.Fields(i).Value, SearchString) > 0 Then
                sReturn = rs.Fields(i).Name
                Exit Do
            End If
        End If
    Next
    rs.MoveNext
Loop
SearchTable = sReturn
End Function