Fields Collection

Hi Guys,

My first post. Can you help me?
I want to loop through all the fields in all the tables and find any fields with a value of "UPGRADE" The code below takes me part way there because tdf.Name gives me the database name and fld.Name gives me the field name. What I am having problems with is referencing the fields value with fld.Value. How do I dynamicaly reference the value of the field.

Any help would be greatly appreciated.

Best Regards,

Steve Wilson.

My Code:
Dim StringValue As String
Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Set db = DBEngine(0)(0)
For Each tdf In db.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
Debug.Print "** " & tdf.Name
For Each fld In tdf.Fields
Debug.Print fld.Name & "+++ " & fld.Value
If InStr(1, fld.Value, "UPGRADE") Then
MsgBox (" Value = " & fld.Value & " Table = " & tdf.Name)
End If
Next fld
End If
Next tdf