level 1
这个说明你的电脑上没有安装 0ffice 2003版的原因，你的电脑应该是win7以上的系统了吧。
2014年12月03日 09点12分
level 12
level 12
2.检查是否安装了Office 2003及以上
1.重新安装注册MDAC28.exe （一般你的vs安装目录里有或者到微软的官方网站上下）
http://access911.net/fixhtm/72FABF1E14DC.htm
3.如果是64位平台，也可能出现这种情况；解决方法：生成->配置管理器->平台->点击Any Cpu选项卡->新建->新建平台->X86
2014年12月03日 10点12分
4
1.重新安装注册MDAC28.exe （一般你的vs安装目录里有或者到微软的官方网站上下）
http://access911.net/fixhtm/72FABF1E14DC.htm
3.如果是64位平台，也可能出现这种情况；解决方法：生成->配置管理器->平台->点击Any Cpu选项卡->新建->新建平台->X86
![[吐舌]](/static/emoticons/u5410u820c.png)
level 13
不需要装office吧？
我的一段程序：
Imports System.Data.OleDb
Imports ADOX
Imports System.IO
Public Class Form1
Public dbFileName As String = "XXX.MDB"
Public dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dbFileName
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If File.Exists(dbFileName) Then File.Delete(dbFileName)
Dim cat As Catalog = New Catalog()
cat.Create(dbConnectionString)
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
dbConnection.Open()
End Sub
End Class
项目-引用-COM-microsoft ADO ext.6.0 DLL and secuity
2014年12月03日 15点12分
6
我的一段程序：
Imports System.Data.OleDb
Imports ADOX
Imports System.IO
Public Class Form1
Public dbFileName As String = "XXX.MDB"
Public dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dbFileName
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If File.Exists(dbFileName) Then File.Delete(dbFileName)
Dim cat As Catalog = New Catalog()
cat.Create(dbConnectionString)
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
dbConnection.Open()
End Sub
End Class
项目-引用-COM-microsoft ADO ext.6.0 DLL and secuity
level 13