紧急求救 怎样用代码刷新（看到）刚建的表呢？？

Question

各位大虾：我用代码在数据库中建了一个表，但我立刻用DATA控件与这个新建的表却联不上，不知道是什么原因！！请各位大虾指教指教！！例如：Dim mydatabase As Database, mytabledef As TableDef, myfield As Field, myindex As IndexSet mydatabase = Workspaces(0).OpenDatabase(App.Path & "\mdb\cbcc.mdb", , , dbLangGeneral)
    Set mytabledef = mydatabase.CreateTableDef("cbcc" ）
    Set myfield = mytabledef.CreateField("name", dbText, 255)
    mytabledef.Fields.Append myfield
    Set myfield = mytabledef.CreateField("filename", dbText, 255)
    mytabledef.Fields.Append myfield
    mydatabase.TableDefs.Append mytabledef
    Set myindex = mytabledef.CreateIndex("12")
    myindex.Primary = True
    Set myfield = myindex.CreateField("name")
    myindex.Fields.Append myfield
    mytabledef.Indexes.Append myindexData1.DatabaseName = App.Path & "\mdb\cbcc.mdb"
Data1.RecordSource = "ccbc" 
Data1.Refresh它会提示一个这样的错误：
         实时错误‘3011’  Microsoft Jet 数据库引擎找不到对象‘ccbc'.请确定对象是否存在并正确地写出它的名称和路径。这个我想就是没刷新表的原因，请问用什么办法刷新表呢 或者是库呢

Answer 1

我记得,data控件的recordsource 好像不能这样赋值,你试一下dim rs as recordset
set rs=mytabledef.openrecordset ("select * from ccbc")
set data1.recordsoure=rs很久没做了,忘了应该怎么写,你可能要用这种思路,recordsoure不能在代码中那样赋值

Answer 2

直接用ADO吧，不要饶那么多弯路