ขอดูโค้ดที่ใช้หน่อยครับ

Private Sub Command78_Click() Dim dbs As Database Dim tdfSales As TableDef Dim rstSales As Recordset ' Open the Microsoft Access database. Set dbs = CurrentDb ' Create a TableDef object. Set tdfSales = dbs.CreateTableDef("Linked Text Table") ' Set the connection string to specify the source database type and ' the full path to the file that contains the table you want to link. tdfSales.Connect = "Text;" _ & "DATABASE=C:\Database" ' Set the SourceTableName property to the name of the table you want to access. tdfSales.SourceTableName = "Abc.txt" ' Append the TableDef object to the TableDefs collection to create a link. dbs.TableDefs.Append tdfSales End Sub Áѹ¢Öé¹á¶º error µÑé§áµèºÃ÷Ѵáá·Õè»ÃСÒȵÑÇá»ÃàÅÂÍèФèÐ

ถ้าใช้ Access 2000 หรือสูงกว่า ผมเดาว่าน่าจะเกิดจาก DAO ซึ่งยังไม่ได้เลือกไว้ใน References ให้ไปที่เมนู Tools>References แล้วดูว่ามี Microsoft DAO 3.6 Object Library เลือกไว้หรือยัง ถ้ายังให้ค้นหา แล้วเลือกไว้ แล้วเปลี่ยนโค้ดจาก Dim dbs As Database Dim tdfSales As TableDef ไปเป็น Dim dbs As DAO.Database Dim tdfSales As DAO.TableDef

ได้แล้วค่ะ ขอบคุณค่ะ