Hey, seven years later, here it is!
Sub ShowTablesWithoutPrimaryKey()
'This procedure populates the table called tblListOfTablesWithoutPrimaryKey with the
'names of tables that do not have a Primary key. Please note that ODBC linked tables
'are NOT checked by this procedure. For ODBC tables...