在已知数据库中怎么创建数据表？？？

Question

我写了个过程：
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代表我要创建的数据表的名称，可是在运行过程当中，这一过程不能创建出数据表,请帮我看看如何解决这个问题，谢谢

Answer 1

'菜单“工程”-->"引用"-->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 Sub

Answer 2

首先很感谢，但是我在调试过程当中，首先，我的Microsoft ADO Ext.2.7 for DDL ado Security  不是2.7的，是2.5，其次，dim cn as new adodb ....到这里的时候提示错误，我查看了下，当输入dim cn as new后面提示的是ADOX，没有ADODB，请问这是怎么回事？

Answer 3

不好意思，引用搞错了 
应该是 Microsoft ActiveX Data Object 2.X Library

Answer 4

呵呵，经过调试，发现是引用的错误，应该引用的是microsoft activeX data objects 2.7 library  不过很感谢啊，但是我想问的是，为什么要通过adodb来建立表呢？为什么DAO就不行呢？

Answer 5

从开始接触vb就是ado
ado就很好用啊