[AccessD] Relationships

Can anybody help me with the following code.  It doesn't  seem to want to
give me anything other that  the  first field join.

Thanks

Max

For Each Rel In CurrentDb.Relations
   With Rel
   sql = sql & "Name: " & .Name & vbCrLf
   sql = sql & "Attributes: " & .Attributes & vbCrLf
   sql = sql & "Table: " & .Table & vbCrLf
   sql = sql & "ForeignTable: " & .ForeignTable & vbCrLf
   sql = sql & "Fields:" & vbCrLf
   For Each Fld In .Fields
     sql = sql & "Field: " & Fld.Name & vbCrLf
   Next Fld
   End With
   sql = sql & vbCrLf
Next