This thread is for discussions of Compact & repair MS Access database.

Dear sir

U code and logic very good .

i am using it in my project

but i have one syntanctical problem in code: the code where syntax error within the underlined lines is as follows:

Do While InStr(1, sDBNAME, "\") & lt; > 0

        sDBNAME = Right(sDBNAME, Len(sDBNAME) - InStr(1, sDBNAME, "\"))
Loop

If sPASSWORD & lt; > "" Then

        Call DBEngine.CompactDatabase(sDB, sDBtmp, dbLangGeneral, , ";pwd=" & sPASSWORD)
Else
        Call DBEngine.CompactDatabase(sDB, sDBtmp)
End If

1) the statement  :> Do While InStr(1, sDBNAME, "\") & lt; > 0

& lt;>0 what is this variable lt; This is giving the error.

Please send me the proper syntax.

Thanks in advance.

Regards

Gajanan R Sirsat

email Id: sirsat_gajanan@yahoo.co.in