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