the set statement opens a (DAO) recordset using the SQL 'select distinct(family) from family_tab'.
Set family_rs = cn.Execute("select distinct(family) from family_tab")
that SQL means select distinct family fro the table family_tab. presumably family is the family surname
means iterate through the recordset generated above until the code reaches the end of the rows returned in that recordset.
While family_rs.EOF = False
normally there's a set of statements after the while, ending in a wend statement which defines the loop the code will run until the EOF condition is met. Im surprised there is no test to see if no rows were returned. see the documentation on DAO recordsets for details
I'd rather be riding on the Tiger 800 or the Norton