I want to show pdf file in vb.net project

Private Declare Function ShellEx Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Integer, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer

   Dim SConnectionString As String = "Data Source=.\sqlexpress;Initial Catalog=New1;Integrated Security=True;Pooling=False"

   Dim connection As SqlConnection

Private Sub GetImagesFromDatabase()
        Try


            If connection.State = ConnectionState.Closed Then
                connection.Open()
            End If

            Dim strSql As String = "Select FileId,FileName," & _
            "FileType from FileStore"


            Dim ADAP As New SqlDataAdapter(strSql, connection)
            Dim DS As New DataSet()
            ADAP.Fill(DS, "FileStore")
            dbGridView.DataSource = DS.Tables("FileStore")
            'Adding Columns
            Dim dgButtonColumn As New DataGridViewButtonColumn
            dgButtonColumn.HeaderText = ""
            dgButtonColumn.UseColumnTextForButtonValue = True
            dgButtonColumn.Text = "View File"
            dgButtonColumn.Name = "ViewFile"
            dgButtonColumn.ToolTipText = "View File"
            dgButtonColumn.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCellsExceptHeader
            dgButtonColumn.FlatStyle = FlatStyle.System
            dgButtonColumn.DefaultCellStyle.BackColor = Color.Gray
            dgButtonColumn.DefaultCellStyle.ForeColor = Color.White
            dbGridView.Columns(0).Visible = False
            dbGridView.Columns.Add(dgButtonColumn)


        Catch ex As Exception
            MessageBox.Show(ex.ToString())
            MessageBox.Show("Could not load the Image")
        End Try
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      GetImagesFromDatabase()
    
  End Sub

Private Sub downLoadFile(ByVal iFileId As Long, ByVal sFileName As String, ByVal sFileExtension As String)
        Dim strSql As String

        Try

            strSql = "Select Data from FileStore WHERE FileId=" & iFileId

            Dim sqlCmd As New SqlCommand(strSql, connection)

            'Get image data from DB
            Dim fileData As Byte() = DirectCast(sqlCmd.ExecuteScalar(), Byte())

            Dim sTempFileName As String = Application.StartupPath & "\" & sFileName

            If Not fileData Is Nothing Then
                'Read image data into a file stream 
                Using fs As New FileStream(sFileName, FileMode.OpenOrCreate, FileAccess.Write)
                    fs.Write(fileData, 0, fileData.Length)
                    'Set image variable value using memory stream. 
                    fs.Flush()
                    fs.Close()
                End Using

            
                ShellEx(Me.Handle, "Open", sFileName, "", "", 10)
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

Dim strSql As String = "";
        If sender.Columns(e.ColumnIndex).Name = "ViewFile" Then
            downLoadFile(dbGridView.Rows(e.RowIndex).Cells("FileId").Value, dbGridView.Rows(e.RowIndex).Cells("FileName").Value, dbGridView.Rows(e.RowIndex).Cells("FileType").Value)
        End If