lcCurdir = "\\Servidor\f\somepath\" lcConnString="Driver={Microsoft Access Driver (*.mdb)};"+; "Dbq=the db.mdb; DefaultDir="+lcCurDir loSPT = SQLSTRINGCONNECT(lcConnString) IF loSPT > 0 IF SQLTables(lnSPT,"TABLE VIEW","cCatalog") > 0 SELECT "cCatalog" SCAN IF SQLTables(lnSPT,cCatalog.Table_Name,"cFields") > 0 BROW ELSE IF AERROR(laError) > 0 Messagebox("Error getting Columns of: "+cCatalog.Table_Name + "Extended Error:"+laError[2]) ENDIF ELSE IF AERROR(laError) > 0 Messagebox("Error getting Catalog of Entities"+chr(13)+; "Extended Error: "+laError[2]) ENDIF ENDIF ENDSCAN ELSE AERROR(laError) MESSAGEBOX("Error al Conectar:"+laError[2],48,"Error al Conectar") ENDIFHTH