excelden accessi açmak

Herkese Merhaba Aşağıdaki kodlarla butona atayarak belirtilen konumdaki accessi sıkıştır ve onar yapabiliyorum. Sub Sıkıştır () Dim Acc As Object Set Acc = CreateObject("access.application") VTAdres = ThisWorkbook.Path & "\" VTAsli = VTAdres & "YILDIZ_VeriTabanı.accdb" VTTmp = VTAdres &...