Cambiar a return.

R/sqlConnect.R

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