How to add Header Columns to PDF Sql, Vb.net - sql

Question

How to add Header Columns('ID, Name, Class, Date'. When I'm exporting to pdf from database pdf documnet not showing header columns how to add header columns to pdf. Thank you...
Dim table As New PdfPTable(5)
table.TotalWidth = 516.0F
table.LockedWidth = False
Dim widths As Single() = New Single() {1.0F, 2.0F, 3.0F, 4.0F, 5.0F}
table.SetWidths(widths)
table.HorizontalAlignment = 0
table.SpacingBefore = 20.0F
table.SpacingAfter = 20.0F
Dim connect As String = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\nagaraju\Documents\Attendance.mdf;Integrated Security=True;Connect Timeout=30"
Using conn As New SqlConnection(connect)
Dim pdfDoc As New Document()
Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("C:\Users\nagaraju\Documents\pdf\" & TextBox1.Text & ".pdf", FileMode.Create))
pdfDoc.Open()
Dim img As Image = Image.GetInstance(My.Resources.Header, System.Drawing.Imaging.ImageFormat.Jpeg)
pdfDoc.Add(img)
img.ScalePercent(50.0F)
img.ScaleToFit(250.0F, 250.0F)
Dim query As String = "SELECT ID,Name,Class,Date,Intime FROM stuattrecordAMPM where ID=#ID and Date between #Date1-1 and #Date2"
Dim cmd As New SqlCommand(query, conn)
cmd.Parameters.Add("#ID", SqlDbType.Int)
cmd.Parameters("#ID").Value = TextBox1.Text
cmd.Parameters.Add("#Date1", SqlDbType.DateTime).Value = DateTimePicker1.Value
cmd.Parameters.Add("#Date2", SqlDbType.DateTime).Value = DateTimePicker2.Value
Try
conn.Open()
Using rdr As SqlDataReader = cmd.ExecuteReader()
While rdr.Read()
table.AddCell(rdr(0).ToString())
table.AddCell(rdr(1).ToString())
table.AddCell(rdr(2).ToString())
table.AddCell(rdr(3).ToString())
table.AddCell(rdr(4).ToString())
End While
End Using
Catch ex As Exception
End Try
pdfDoc.Add(table)
pdfDoc.Close()
End Using