编程管理(添加、删除、刷新) Access 链接表信息[2]

adocatalog.tables.item("excel").properties.item("jet oledb:link provider string").value = "excel 5.0;hdr=yes;imex=2"
end sub

private sub form_load()
command1.caption = "链接表信息"
command2.caption = "添加链接表"
command3.caption = "删除链接表"
command4.caption = "刷新链接表"
end sub