Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
    Dim stAppName As String
    Dim stPathFileName As String
 
    'Define path and file name of PDF document, keep .pdf extention
    stPathFileName = Me!txtPathFile
    stAppName = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe " & stPathFileName
    Call Shell(stAppName, 1)
 
Exit_Command1_Click:
    Exit Sub 
Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
 
End Sub

Private Sub List14_AfterUpdate()

Dim strpath As String

strpath = Me.List14.Column(2)
Me.WebBrowser5.Navigate (strpath)
End Sub