sqlConnect<-function(file, pass=T){
  sqlInitialize()
  if (pass){
    return(odbcConnectAccess2007(access.file = file,
                               pwd = .rs.askForPassword("Enter password:")))
  }else{
    return(odbcConnectAccess2007(access.file = file))
  }
}