Thanks Bob,
I have played around with it and I have got the following code to sort of work, but it isn't looking up the fields in the table like it is supposed to, any ideas?
Private Sub Report_Open(Cancel As Integer)
Dim dbs As Database, rst As Recordset
Dim TBLLoop As Integer, strColName...