OpenRecordSet报错问题

Question

Public Dbs As Database
Public Rs As Recordset
Dim tdfNew As TableDef
    Set Dbs = DBEngine.Workspaces(0).OpenDatabase(DatabasePath, False, False)
    Set tdfNew = Dbs.CreateTableDef(TableName & "OutputTemp")
    tdfNew.Fields.Append tdfNew.CreateField(Col1, dbText)
    tdfNew.Fields.Append tdfNew.CreateField(Col2, dbText)
    tdfNew.Fields.Append tdfNew.CreateField(Col3, dbText)
    tdfNew.Fields.Append tdfNew.CreateField(Col4, dbText)
    Dbs.TableDefs.Append tdfNew
    Set Rs = tdfNew.OpenRecordset()
最后一句报错：类型不匹配。怎样解决？

Answer 1

Set Rs = tdfNew.OpenRecordset(你的sql语句)

Answer 2

我是这么写的
set rs=rdfnew.openrecordset("select * from " & Tablename & "OUtputtemp")
不知你的意思是什么，但是报错“数据类型转换错误”，请再指教

Answer 3

Dbs.TableDefs.Append tdfNew
    Set Rs = tdfNew.OpenRecordset()
最后一句报错：类型不匹配。怎样解决？
 Set Rs = Dbs.OpenRecordset()

Answer 4

Set Rs = Dbs.OpenRecordset()

Answer 5

Set Rs = dbs.OpenRecordset("select * from " & Tablename & "OUtputtemp")
这样试试