VB+Access，在已有的数据库中新建表解决思路

VB+Access，在已有的数据库中新建表
我要在已有的数据库中新建一个表，数据库名为SJSC.mdb，新建表名由用户输入text2.text内容，具体怎么实现，以下代码出现编译错误,无效使用new关键字，指向Dim tbl As New Table语句

Dim path1 As String

path1 = ("D:\Microsoft Visual Studio\VB98\试卷生成系统代码\SCSJ.mdb")

If path1 = "" Then

MsgBox "数据库SCSJ不存在，请先建立数据库！"

Exit Sub

End If


conn.Open path1

Dim tbl As New Table

conn.ActiveConnection = path1

tbl.Name = Trim(Text2.Text) & "试题"

tbl.Columns.Append "题号", adInteger

tbl.Columns.Append "题型", adVarWChar, 10

tbl.Columns.Append "题目", adVarWChar, 200

tbl.Columns.Append "分值", adInteger

tbl.Columns.Append "难度", adVarWChar, 4

tbl.Columns.Append "知识点", adVarWChar, 50

tbl.Columns.Append "所在章节", adVarWChar, 10

tbl.Columns.Append "答案", adVarWChar, 100

tbl.Columns.Append "状态", adInteger

conn.Tables.Append tbl

------解决方案--------------------
需要引用 ADOX 或 DAO 来做。

用它们不仅可以建表，甚至可以在已有的表中新增字段。

------解决方案--------------------

引用:

引用Microsoft ActiveX Data Object [版本号,比如2.8或2.7等] Library
数据库字段名最好用英文写

Visual Basic code?123456Dim cn As New ADODB.ConnectionDim sql As String        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data ……

关于"Application.StartupPath",请问您这用的是哪个库
------解决方案--------------------
疏乎了，忘改过来
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Microsoft Visual Studio\VB98\试卷生成系统代码\SCSJ.mdb;persist security info=false")