Populate PDF, FDF, XDP with ADO.net dataset using FDFToolkit.net

Imports FDFApp
Imports FDFApp.FDFApp_Class
Imports FDFApp.FDFDoc_Class
Partial Public Class testForm1
    Inherits System.Web.UI.Page
    Private URLPath As String = ""
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        URLPath = Request.Url.AbsoluteUri.ToString & ""
        URLPath = URLPath.Substring(0, URLPath.LastIndexOf("/") + 1) & ""
        Try
	  Load_Data(URLPath & "PDFFormName.pdf", Request("id") + 0, FDFApp.FDFDoc_Class.FDFType.PDF)
        Catch Ex As Exception
	  Response.Write("Error: " & Ex.Message)
	  Response.End()
        End Try
    End Sub
    Public Sub Load_Data(ByVal PDFFile As String, ByVal ID As Integer, ByVal OutPutMIMEType As FDFApp.FDFDoc_Class.FDFType)
        ' DECLARE THE COMPONENTS
        Dim FDFApp As New FDFApp.FDFApp_Class
        Dim FDFDoc As New FDFApp.FDFDoc_Class
        ' INITIALIZE THE COMPONENTS
        FDFDoc = FDFApp.FDFCreate
        FDFDoc.FDFSetFile(PDFFile)
        Dim myDA As New OleDb.OleDbDataAdapter("SELECT * FROM [TABLENAME] WHERE ID=" & ID & ";", "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("/APP_DATA/myDATABASE.mdb") & ";")
        Dim myDS As New DataSet
        myDA.Fill(myDS, "TABLENAME")
        ' SETS VALUES FROM TABLE ROW TO FDF
        FDFDoc.FDFSetValuesFromDataRow(myDS.Tables(0).Rows(0))
        ' WRITE THE FDF TO THE BUFFER
        Response.Clear()
        Select Case OutPutMIMEType
	  Case Global.FDFApp.FDFDoc_Class.FDFType.FDF
	      Response.ContentType = FDFApp.MimeFDF
	      Response.BinaryWrite(FDFDoc.FDFSavetoBuf(Global.FDFApp.FDFDoc_Class.FDFType.FDF, False))
	  Case Global.FDFApp.FDFDoc_Class.FDFType.PDF
	      Response.ContentType = FDFApp.MimePDF
	      Response.BinaryWrite(FDFDoc.PDFMergeFDF2Buf(PDFFile, False, ""))
	  Case Global.FDFApp.FDFDoc_Class.FDFType.XDP
	      Response.ContentType = FDFApp.MimeXDP
	      Response.BinaryWrite(FDFDoc.FDFSavetoBuf(Global.FDFApp.FDFDoc_Class.FDFType.XDP, True))
        End Select
        Response.End()
    End Sub

End Class