diff --git a/RellenarOVBD.R b/RellenarOVBD.R
index 0bfd210..1e9e138 100644
--- a/RellenarOVBD.R
+++ b/RellenarOVBD.R
@@ -74,7 +74,7 @@ saveWorkbook(wb,"queryOV.xlsx",overwrite = TRUE)
 
 ## Añadir código de muestra nueva a la base de datos
 nsamples<-sqlFetch(dta, "SAMPLES") %>% nrow
-upd.samples<-read.xlsx("QuerySamplesOV.xlsx")
+upd.samples<-read.xlsx("QueryOV.xlsx", sheet = "samples", detectDates = T)
 rownames(upd.samples)<-(nsamples+1):(nsamples+nrow(upd.samples)) %>% as.character
 
 ### !! Atención, esto cambia la base de datos: