Update connectDB.R