[Magnum2000]

All'indirizzo seguente dell'MSDN ho trovato questo codice per riparare un database:
http://msdn.microsoft.com/library/de...rdatabasex.asp

Sub RepairDatabaseX()

    Dim errLoop As Error

    If MsgBox("Repair the Northwind database?", _
            vbYesNo) = vbYes Then
        On Error GoTo Err_Repair
        DBEngine.RepairDatabase "Northwind.mdb"
        On Error GoTo 0
        MsgBox "End of repair procedure!"
    End If

    Exit Sub

Err_Repair:

    For Each errLoop In DBEngine.Errors
        MsgBox "Repair unsuccessful!" & vbCr & _
            "Error number: " & errLoop.Number & _
            vbCr & errLoop.Description
    Next errLoop

End Sub

E' questo il metodo che dicevi?
Basta modificare il nome del database?