[RESOLVED] run time error '2147467259(80004005)

[fkwinna]

I have the following error message
run time error '2147467259(80004005)
could not find installable ISAM when I running the following code

Private Sub Form_Load()
Dim s As String
Dim rsitem As New ADODB.Recordset
s = "provider =microsoft.jet.OLEDB.4.0;”"
DB.ConnectionString = s = s & "data source=\" & App.Path & "\InventoryControl1.mdb\"
DB.Open

End Sub

kindly try to help me
Thank's for all
fkwinna

[Doogle]

I think your Connection String should be:

DB.ConnectionString =  s & "data source=" & App.Path & "\InventoryControl1.mdb"

you also need to establish DB as an ADODB.Connection
eg

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

[fkwinna]

Dear Doogle
Thank you for your urgent reply,But I'm sorry , the problem still
I tried your statement but I get the same error,
I think that the error at MSACCESS2000
I tried to repaire it or reinstall but nothing happen

[Doogle]

Can you copy and paste your actual code please. There seems to be a typo in your Provider string

s = "Provider=Microsoft.Jet.OLEDB.4.0;"

[fkwinna]

ok dear

the following is a copy from the project

module
Public DB As New ADODB.Connection

form_load
Dim s As String
Dim DB As ADODB.Connection
Set DB = New ADODB.Connection
Dim rsitem As New ADODB.Recordset
s = "provider =microsoft.jet.OLEDB.4.0;”"
DB.ConnectionString = s & "data source=" & App.Path & "\InventoryControl1.mdb"


DB.Open

[Doogle]

What's that strange character at the end of the provider string ? (the last character before the double quote at the end) It shouldn't be there.

[fkwinna]

ok
it is mitype
but the problem is still

[Doogle]

The most common cause of the problem you are experiencing is a syntax error in the Connection string. Can you copy and past the code from your project so we can see exactly what it looks like. Thanks

[fkwinna]

this is the code

Dim s As String
Dim DB As ADODB.Connection
Set DB = New ADODB.Connection
Dim rsitem As New ADODB.Recordset
s = "provider =microsoft.jet.OLEDB.4.0;"
DB.ConnectionString = s & "data source=" & App.Path & "\InventoryControl1.mdb"


DB.Open

[fkwinna]

Dear Doogle

Thank's for your time and your truly assistance
my problem is solved by
1) uninstal Msaccess and visual basic
2) reinstall both of msaccess and visual basic 6
what the reasons ! I don't know
ok
thank's
fkwinna

[lmanojar]

HI,

As, I am getting "Mircosoft Visual Basic Run-time error '-2147467259 (80004005)". Could you please help me.

Sub DbConnection()

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset

Dim StrConn As String
StrConn = "Driver = {oracle};server=XE;Database=system;UID=system;PWD=tiger"

cn.Open StrConn
cn.Close
Set cn = Nothing
MsgBox "Connected"
End Sub