Code:
Set RS = DBS.OpenRecordset("Select Cities.Street, Cities.Town, Names.NickName FROM Cities, Names WHERE Cities.Street = Names.Street")
I am not sure if this is what your getting at or not.