你最好用adox去创建,去引用Microsoft ADO.Ext2.5 for DDL and Security
Private Sub Form_Load()
Dim b As New ADOX.Table
Dim a As New ADOX.Catalog
a.a.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Exaple.mdb" '建立数据连接
a.Tables("表名").Columns("列名").DefinedSize=?
End Sub
Private Sub Form_Load()
Dim b As New ADOX.Table
Dim a As New ADOX.Catalog
a.a.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Exaple.mdb" '建立数据连接
a.Tables("表名").Columns("列名").DefinedSize=?
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货