Compact Database Error

[squirrelly1]

The following code is erroring out on the bolded line

Dim lcStrSource As String
        Dim lcStrTarget As String
        Dim lcStrEngine As String
        Dim lcObjJRO As JRO.JetEngine
 
        lcObjJRO = New JRO.JetEngine
 
        lcStrSource = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & DBLoc & "; Persist Security Info = False;Jet OLEDB:Engine Type=4"
        lcStrTarget = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & DBLoc2 & "; Persist Security Info = False;Jet OLEDB:Engine Type=4"
 
        [b]lcObjJRO.CompactDatabase(lcStrSource, lcStrTarget)[/b]
 
        Kill(DBLoc)
        Rename(DBLoc2, DBLoc)
 
        MsgBox("Database Compacted")

It's giving me:

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.


Any ideas?

Squirrelly1