用VB的代码创建Access数据库.docVIP

怎样用VB的代码创建Access数据库 用 ? ADOX: 菜单“工程”-- 引用 -- Microsoft ? ADO ? Ext.2.7 ? for ? DDL ? ado ? Security 建数据库:Private ? Sub ? Form_Load() ? ? ? ? Dim ? cat ? As ? ADOX.Catalog ? ? ? ? Set ? cat ? = ? New ? ADOX.Catalog ? ? ? ? 在当前目录下建立名为newdata的Access数据库 ? ? ? ? cat.Create ? ( Provider=Microsoft.Jet.OLEDB.4.0;Data ? Source= ? + ? App.Path ? ? \newdata.mdb ? + ? ; ) ? ? ? ? MsgBox ? 数据库已经创建成功！ End ? Sub 建表: Private ? Sub ? Command1_Click() ? ? ? ? Dim ? cn ? As ? New ? ADODB.Connection ? ? ? ? cn.ConnectionString= Provider=Microsoft.Jet.OLEDB.4.0;Data ? Source= ? ? App.Path ? ?