Provider not found

[raj08536]

I am running following VBA to extract data from MS Access.

It gives me error at cn.open saying providor not found. Please help.

<vba>


Sub Forecast2()
'
' Macro2 Macro
'

'
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As String
Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\CentralizedDatabase\CenntralizedDB.accdb"


strSql = "SELECT * FROM Forecast2+10;"
cn.Open strConnection
Set rs = cn.Execute(strSql)
' MsgBox rs.Fields(0) & " rows in MyTable"
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

<vba/>

 

[RayFrye]

Connect string are always a hassle.
Check out SQL Connection using Excel Macros - Welcome to LearnExcelMacro.com