Menampilkan File PDF dari Mysql dengan VB.net

Masih dioprek belum ketemu ni..... kalau ada yang bisa tolong di posting ya...berhadiah lho....
ini yg lagi saya oprek...

Imports MySql.Data.MySqlClient
Imports System.IO

Public Class Tampil
'Inherits System.Windows.Forms.Form

Private conn As MySqlConnection
Private adapter As MySqlDataAdapter
Private ds As DataSet

Private Sub Tampil_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim sql As String = "SELECT * FROM data_blob"
Dim ConnStr As String = "server=localhost;uid=root;database=datablob;"
Try
conn = New MySqlConnection(ConnStr)
conn.Open()
ds = New DataSet
adapter = New MySqlDataAdapter(sql, conn)
adapter.Fill(ds, "data_blop")
BindListControls()

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Error")
End Try
End Sub

Private Sub BindListControls()
cbxkode.DataSource = ds.Tables(0)
cbxkode.DisplayMember = "kode_file"
cbxdes.DataSource = ds.Tables(0)
cbxdes.DisplayMember = "deskripsi"
cbxnama.DataSource = ds.Tables(0)
cbxnama.DisplayMember = "nama_file"
cbxsize.DataSource = ds.Tables(0)
cbxsize.DisplayMember = "ukuran"
End Sub

Private Sub btn_lihat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_lihat.Click
Dim CurrFile As Image
Dim fs As FileStream = Nothing

'Deklarasi variabel untuk temporary file
Dim temp As String = "D:\\" + cbxnama.Text

'SQL dengan kondisi kode_file
Dim sql As String = "SELECT * FROM data_blob WHERE kode_file='" & cbxkode.Text & "'"
Try
adapter = New MySqlDataAdapter(sql, conn)
ds = New DataSet
adapter.Fill(ds, "data_blob")
Dim myRow As DataRow

'Menetapkan Index data
myRow = ds.Tables("data_blob").Rows(0)

Dim DataFL() As Byte
DataFL = myRow("file")
Dim Counter As Long

'Mendapatkan jumlah total Elemen array
Counter = UBound(DataFL)
fs = New FileStream(temp, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(DataFL, 0, Counter)
fs.Close()
adapter.Dispose()

Catch ex As Exception
MsgBox("Error : " + ex.Message)
Finally
'Menampilkan File
PDF_Tampil.OcxState = Nothing
'CurrFile = au
PDF_Tampil.OcxState = PDF_Tampil.OcxState
End Try
End Sub

Private Sub bt_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_keluar.Click
End
End Sub
End Class