在已知数据库中怎么创建数据表？？？
我写了个过程：
Public Function CreateTABLE(ByVal dbname As String, ByVal TableName As String) '创建数据表
Dim DB As Database
Dim DBTable As TableDef
Set DB = OpenDatabase(App.Path & "\" & dbname & ".mdb")
Set DBTable = DB.CreateTableDef(TableName)
End Function
其中，dbname代表我要创建数据表的数据库，TableName代表我要创建的数据表的名称，可是在运行过程当中，这一过程不能创建出数据表,请帮我看看如何解决这个问题，谢谢
问题点数：20、回复次数：5Top
1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-03 13:23:57 得分 20
'菜单“工程”-->"引用"-->Microsoft ADO Ext.2.7 for DDL ado Security
建表:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp.mdb;Persist Security Info=False"
cn.Open
cn.Execute "CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double)"
cn.Close
End SubTop
2 楼wangjungy（不好说）回复于 2006-03-03 13:34:34 得分 0
首先很感谢，但是我在调试过程当中，首先，我的Microsoft ADO Ext.2.7 for DDL ado Security 不是2.7的，是2.5，其次，dim cn as new adodb ....到这里的时候提示错误，我查看了下，当输入dim cn as new后面提示的是ADOX，没有ADODB，请问这是怎么回事？Top
3 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-03 13:40:12 得分 0
不好意思，引用搞错了
应该是 Microsoft ActiveX Data Object 2.X LibraryTop
4 楼wangjungy（不好说）回复于 2006-03-03 13:43:07 得分 0
呵呵，经过调试，发现是引用的错误，应该引用的是microsoft activeX data objects 2.7 library 不过很感谢啊，但是我想问的是，为什么要通过adodb来建立表呢？为什么DAO就不行呢？Top
5 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2006-03-03 13:51:50 得分 0
从开始接触vb就是ado
ado就很好用啊Top
