ник: час
А у мня ругается .....
скотина...... 
Dim appAccess As Access.Application
Set appAccess = New Access.Application
With appAccess.CurrentDb
.OpenCurrentDatabase Obmen
.Relations.Delete .Relations(0)
.CloseCurrentDatabase
End With
Set appAccess = Nothing
|