'===================================== 'SACADO DE MICROSOFT PARA ABRIR UN 'RECORDSET DE UN FICHERO DE TEXTO 'Bhuo Agosto de 2002 '===================================== Primer ejemplo:Abro simplemente el Recordset del fichero de texto. Option Explicit Function TestSchema() Dim db As DATABASE, rs As Recordset Set db = OpenDatabase("c:\my documents", False, _ False,"TEXT;Database=c:\my documents;table=contacts.txt") Set rs = db.OpenRecordset("contacts.txt") rs.MoveLast Debug.Print "Record count= " & rs.RecordCount rs.Close End Function '======================================== Ejemplo 2 Se crea una tabla linkada al fichero de texto: Option Explicit Function LinkSchema() Dim db As DATABASE, tbl As TableDef Set db = CurrentDb() Set tbl = db.CreateTableDef("Linked Text") tbl.Connect = "Text;DATABASE=c:\Mis Documentos;TABLE=contacts.txt" tbl.SourceTableName = "contacts.txt" db.TableDefs.Append tbl db.TableDefs.Refresh End Function