Hey,

I'm using the following code to (try to) compact a database.

Private Sub Compact_Database()

Dim jro As jro.JetEngine

Dim OldConn As String
Dim NewConn As String

Set jro = New jro.JetEngine

OldConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\PROJECTEN\AdmICS\Databases\Test.mdb;PWD=test"
NewConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\PROJECTEN\AdmICS\Databases\TestComp.mdb;PWD=test"

jro.CompactDatabase OldConn, NewConn

End Sub

Coming to the last line it gives a fault:
'Could not find installable ISAM'.

Can anybody tell me with this fault means or how I can alter
my code in order by to make it work.