Dim DB As New ADODB.Connection
Dim oCat As New ADOX.Catalog
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\DB1.mdb;"
Set oCat.ActiveConnection = DB
oCat("temp").Columns(0).Name = "姓名" '改变第一个字段的字段名
DB.Close
Set DB = Nothing
Set oCat = Nothing
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货