autocad二次开发vba中与access的ado连接命令是怎样的

kangcl

Sub ljy()
Dim cn As ADODB.Connection
Dim ConStr As String
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Provider = " Microsoft.Jet.OLEDB.4.0;"
ConStr = "Date Source=g:\new\a.accdb;"
cn.Open ConStr（每次运行到此行命令时就提示程序未正确安装）
End Sub

autocad是2014版本的，access是07的，请大神指教