Create connectDB.R