diff --git a/BDAccess/app.R b/BDAccess/app.R
index 130d65e..b15a8fd 100644
--- a/BDAccess/app.R
+++ b/BDAccess/app.R
@@ -969,6 +969,9 @@ server <- function(input, output) {
             pop$percent<-round(pop$percent, digits=2)
             pop_sp<-pop %>% spread(pop, percent)
             
+            pop_sql<-sqlFetch(dta, "POPULATIONS") %>% slice(0)
+            pop_sp<-pop_sp %>% merge(pop_sql, all=T) %>% select(colnames(pop_sql))
+            
             vartypes<-rep("Number", pop_sp %>% select(-samples) %>% colnames %>% length)
             names(vartypes)<-pop_sp %>% select(-samples) %>% colnames