做一个空的accdb文件,要放在项目里面。
也可以直接创建一个,看能否成功
try Dim Ca = CreateObject("ADOX.Catalog") Ca.Create ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\test.accdb") ca = Nothingcatch ex As Exception msgbox("无法创建accdb")End try