Visual Basic - ERROR AL REPARAR BASE DE DATOS

TENGO EL SIGUIENTE CODIGO PARA REPARAR UNA BASE DE DATOS:

Private Sub cmd_reparar_Click()
Dim errBucle As Error

If MsgBox("¿Desea Reparar la Base de Datos?", _
vbYesNo) = vbYes Then
On Error GoTo Err_Reparar

DBEngine.RepairDatabase NOMBRE_BASE
On Error GoTo 0
MsgBox "¡Fin del procedimiento reparar!"
End If

Exit Sub

Err_Reparar:

For Each errBucle In DBEngine.Errors
MsgBox "¡Falló Repair!" & vbCr & _
"Número de error: " & errBucle.Number & _
vbCr & errBucle.Description
Next errBucle

End Sub

NO ME FUNCIONA CON LAS BASES DE DATOS CREADAS CON ACCESS 2000 SOLO CON LAS CREADAS EN ACCESS 97.
ME DA EL ERROR 13, Y DICE QUE NO COINCIDEN LOS TIPOS.

No estoy segura de que esto te resulte, pero si el problema es el mismo que el de ADO cuando salio Access 2000.... entonces puede resolverse bajando todos los Service Packs de VB6. Intentalo y me dejas saber!