VB2008からAccess2007へのDAO接続でエラーになります。
VB2008からAccess2007へのDAO接続でエラーになります。
VB2008EEからDAO3.6を利用し、Access2007(*.accdb)に接続しようとしていますが、
エラーが発生してしまい、接続できません。
エラーの内容は下記のとおりです。
実行時エラー '3343': データベースの形式 'XXX' を認識できません。
Access2000のデータベース(*.mdb)には普通に接続できています。
Accessのバージョンを問わずに接続したい場合、どうすればよいのでしょうか?
参考までに現在のコードを記載しておきます。
※DAO3.6に参照設定してあります。
Imports dao
Module modConnectDb
Public Function DaoConnect(ByVal strDb As String) As Boolean 'strDb:データベースのファイルパス
Dim Ws As dao.Workspace
Dim DbE As dao.DBEngine
Dim Db As dao.Database
Dim strMsg As String
Try
DbE = New dao.DBEngine
Ws = DbE.Workspaces(0)
Db = Ws.OpenDatabase(strDb)
Catch ex As Exception
strMsg = "エラー番号 " & Str(Err.Number) & vbCrLf & _
Err.Source & " でエラーが発生しました。" & vbCrLf & Err.Description
MsgBox(strMsg, vbExclamation, "エラー")
End Try
End Function
End Module
お礼
ご回答、ありがとうございます。 C/SですのでこのままDAOで使用しようと考えております。