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/>
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/>