Sub Ac()
Dim adres As String, obj As Object
adres = ThisWorkbook.Path & "\YILDIZ_VeriTabaný.accdb"
Set obj = CreateObject("Shell.Application")
If Dir(adres) <> "" Then
obj.ShellExecute(adres)
End If
Set obj = Nothing
End Sub
YILDIZ_VeriTabaný bunu kendiniz yazın Tr karakter olayından dolayı.