'创建数据表
'参数：strDBPath 字符串型 数据库路径
'参数：strTableName 字符串型 需要创建的数据表的名称
'参数：strColumnName 字符串型 初始化的字段名称，其实可以算是多参数了，请注意看下面的例子。
Sub CreateTable(strDBPath, strTableName, strColumnName)
Dim connObj
Set connObj = CreateObject("ADODB.Connection")
connObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = " & strDBPath
connObj.Execute "CREATE TABLE " & strTableName& "(" & _
strColumnName & ")"
connObj.Close
Set connObj = Nothing
End Sub
'其中connObj.Execute的参数就是SQL语句了，一开始我觉得很难，但是今天一看其实真的很简单，想研究的，我下面会贴个链接。
'使用例子：
CreateTable "C:\Test.mdb", "TestTable", "姓名 varchar(255), 性别varchar(255), 年龄 int"
'在C:\Test.mdb数据库中，创建一个名为TestTable的数据表，初始化其字段为： 姓名 字符串型，性别 字符串型，年龄 整数型，一共初始化了3个字段，还需要更多初始化的话，就在后面加逗号，字段名 数据类型。
'关于数据库的数据类型，我会在下面贴个链接，需要的可以自己去查。