[عبدالله الدوسري]

كود :

       Dim FileName As String = Application.StartupPath() & "\" & TextBox1.Text & ".pdf"
       If IO.File.Exists(FileName) Then
           AxAcroPDF1.src = FileName
       Else
           MsgBox("لا توجد وثيقة بنفس الاسم")
       End If