DIM tdfNew as New DAO.TableDef
Set MyWorkspace = CreateWorkspace("", "admin", "", dbUseJet)
Set db = MyWorkspace.OpenDatabase"c:EMP.mdb")
Set tdfNew = db.CreateTableDef("EMP_RPT")
With tdfNew
.Fields.Append .CreateField("公司代碼", dbText, 1)
END WITH
請各位幫我看一下,為何再做一次OpenRecordset("Emp_Rpt")卻找不到Emp_RPT呢