diff --git a/sqlFunctions.R b/sqlFunctions.R
index dd14145..d697b1a 100644
--- a/sqlFunctions.R
+++ b/sqlFunctions.R
@@ -26,7 +26,7 @@ sqlBackUp<-function(dbfile=file,bu.dir){
   file.copy(dbfile, cp_bu)
 }
 
-sqlShowSamples<-function(conn=dta, nhcs=nhc.test, verb=F){
+sqlShowSamples<-function(conn=dta, nhcs=nhc.test, verb=F, dbtype){
   if (isFALSE(verb)){
     sqlQuery(conn, "SELECT O.NHC,S.* 
          FROM SAMPLES S