diff --git a/appsettings.json b/appsettings.json
index 5336921b5a10b570eb6aad591ccaf36c298750c3..7b2d764e0d8bf907787c783141ee805acadc5cdd 100644
--- a/appsettings.json
+++ b/appsettings.json
@@ -2,7 +2,7 @@
 	"InterBase": {
 		"driver": "InterBase ODBC driver",
 		"server": "localhost",
-		"database": "D:/KoeEnEiwit/KoeEnEiwit.IB",
+		"database": "D:/KoeEnEiwit/R-InterBase/Data/KoeEnEiwit.IB",
 		"username": "SYSDBA",
 		"password": "masterkey"
 	},
diff --git a/testKoeEnEiwit.R b/testKoeEnEiwit.R
index 670747c3228848ee602fdbb3172d7552687deea4..fa2bbb7143aa64dbbd942931f07948651b7c97b4 100644
--- a/testKoeEnEiwit.R
+++ b/testKoeEnEiwit.R
@@ -3,11 +3,21 @@ cat("\nStart uitvoeren script 'testKoeEnEiwit.R' \n")
 # Leegmaken van environment
 rm(list=ls())
 
+# Define where active database is located
+vDriveLetter <- "S:" # drive letter used for the location of the IB database
+vPathIB      <- paste0(vDriveLetter, "/InetPub/databases/Webapplicaties/KoeEnEiwit")
+vFileName    <- "KOEENEIWIT.IB"
+rm(vDriveLetter)
+
 rdirectory <- dirname(rstudioapi::getActiveDocumentContext()$path)
 setwd(rdirectory)
 #setwd(commandArgs(trailingOnly = TRUE)[1])
 getwd()
 
+# Create local copy of IB database
+file.copy(file.path(vPathIB, vFileName), "./Data", overwrite = T)
+rm(vPathIB, vFileName)
+
 # Verkrijgen van relevante libraries en functies
 source('./Shared/helperFunctionsInterBase.R')