I am attempting my first attempt to connect to an Access database using ADO.
When I try to open the connection I get a run-time error -2147467259
(80004005) Could not find installable ISAM.

what the heck does this mean?
I have a book Excel 2003 VBA and followed the code to the T. Am I missin
something?


Sub init()

Dim Connection As ADODB.Connection
Set Connection = New ADODB.Connection
Connection.ConnectionString = ConnectionString

Connection.Open
MsgBox Connection.State = ObjectStateEnum.adStateOpen
Connection.Close


End Sub

John,
It prettyy much depend on the connection string you are using.
So post the value of ConnectionString.

NickHK

"John T Ingato" . ..
I am attempting my first attempt to connect to an Access database using
ADO. When I try to open the connection I get a run-time error -2147467259
(80004005) Could not find installable ISAM.

what the heck does this mean?
I have a book Excel 2003 VBA and followed the code to the T. Am I missin
something?


Sub init()

Dim Connection As ADODB.Connection
Set Connection = New ADODB.Connection
Connection.ConnectionString = ConnectionString

Connection.Open
MsgBox Connection.State = ObjectStateEnum.adStateOpen
Connection.Close


End Sub

Sorry. Here is the connection string:

Const ConnectionString As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = C:\Program Files\Microsoft
Office\OFFICE11\SAMPLES\Northwind.mdb;Persist Security = False"


"NickHK" wrote in message
...
John,
It prettyy much depend on the connection string you are using.
So post the value of ConnectionString.

NickHK

"John T Ingato"
. ..
I am attempting my first attempt to connect to an Access database using
ADO. When I try to open the connection I get a run-time error -2147467259
(80004005) Could not find installable ISAM.

what the heck does this mean?
I have a book Excel 2003 VBA and followed the code to the T. Am I missin
something?


Sub init()

Dim Connection As ADODB.Connection
Set Connection = New ADODB.Connection
Connection.ConnectionString = ConnectionString

Connection.Open
MsgBox Connection.State = ObjectStateEnum.adStateOpen
Connection.Close


End Sub