Private Sub Btn_PDF_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Btn_PDF.Click
        Dim mySQLADP As New SqlDataAdapter
        Dim mySQLCmd As New SqlCommand
        Dim mySQLCn As New SqlConnection
        Dim myDataset As New DataSet
 
        'Connect Öffnen //////////////////////////
        mySQLCn.ConnectionString = "Data Source=(local)\; Initial" & _
          "Catalog=Northwind; Integrated Security=True"
        Try
            mySQLCn.Open()
        Catch ex As Exception
            MsgBox("" & Err.Number & " " & Err.Description)
        End Try
 
        'Dataset füllen/////////////////////////////
        mySQLCmd.CommandText = "SELECT * From Orders" & _
                            " WHERE OrderID = '10981' Or OrderID = '10249'"
        mySQLCmd.Connection = mySQLCn
        mySQLADP.SelectCommand = mySQLCmd
        mySQLADP.Fill(myDataset, "TestNeuPDF")
        'Datagrid füllen/////////////////////////////
        DataGrOrders.DataSource = myDataset.Tables("TestNeuPDF")
 
        'Mach PDF 
        ' ////////////////////////////////////////////////////////////////
        Dim odlg As New SaveFileDialog
        Dim oPDF As cPDF
 
        odlg.Filter = "PDF files (*.pdf)|*.pdf|All files (*.*)|*.*"
        If odlg.ShowDialog = DialogResult.OK Then
            mFilename = odlg.FileName
            oPDF = New cPDF(odlg.FileName)
        Else
            Exit Sub
        End If
 
        oPDF.CreateFile()
        oPDF.ExportGrid(myDataset, "TestNeuPDF")
        oPDF.closePDF()
        oPDF = Nothing
        Me.Close()
 
    End Sub