Soru Butonla Excelden Access Veri Tabanını Açmak

[TURKOLOG]

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 & "TmpSil.accdb"
Acc.DBEngine.CompactDatabase VTAsli, VTTmp
Acc.Quit
Set Acc = Nothing
Kill VTAsli
Name VTTmp As VTAsli
End Sub

Bu kodları revize ederek buton vasıtası ile Excelden YILDIZ_VeriTabanı.accdb isimli access dosyasını nasıl açabilirim acaba

 

[mancubus]

Acc.OpenCurrentDatabase VTAsli

 

[TURKOLOG]

Hocam çok teşekkür ederim aşağıdaki kodla sorun çözüldü.

Sub Ac() 
  Dim adres As String, obj As Object   
adres = ThisWorkbook.Path & "\YILDIZ_VeriTabanı.accdb" 
  Set obj = CreateObject("Shell.Application") 
  If Dir(adres) <> "" Then     
  Call obj.ShellExecute(adres)   
End If  
Set obj = Nothing End Sub

 

[mancubus]

rica ederim. kolay gelsin.