Is this a way to effectively repair MS Jet 3.51 databases with corrupted tables or indexes using VB 6 code ?

How do you detect that a MS Jet 3.51 database is corrupted using VB Code ?

Thanks