Öppna fil från access (vb)

Private Sub Kommandoknapp25_Click()

    Dim prog As String
    Dim file As String
    Dim Openobject As String
    
    prog = "C:\Program\Adobe\Reader 9.0\Reader\AcroRd32.exe"
    file = "c:\Queens.pdf"
    Openobject = prog & file

    Call Shell(Openobject, 1)
End Sub

prog = Chr(34) & "C:\Program\Adobe\Reader 9.0\Reader\AcroRd32.exe" & Chr(34)
file = Chr(34) & "c:\Queens.pdf" & Chr(34)
Openobject = prog & " " & file