Public Function getBoxContent()
oDB.Execute "DELETE * FROM counted", dbFailOnError
sQry = "INSERT INTO counted ( Family, Infra, box, collection, Specimens ) " _
& " SELECT DISTINCT A.Family, A.infra, A.BoxNo, A.Collection, Count(A.BoxNo) AS count " _
& " FROM boxes...