PUBLIC oAccess AS ACCESS.APPLICATION oAccess = createobject('Access.Application') oAccess.OpenCurrentDatabase( "C:\\BOB\\01\\Stera2BOB.mdb" , .T. ) *-- Here i have a error oAccess.DoCmd.DeleteObject( 6 , 'IFCOMPAN' ) oAccess.CloseCurrentDatabase() oAccess.Quit()