สอบถามเรื่องการนำข้อมูลจาก sql มาแสดงผลแบบตารางปฏิทินค่ะ จะเขียน code vb.net อย่างไรคะ

Private Sub ShowAppointmentDetail(sender As Object, e As EventArgs)
       Dim appID As Integer = CType(sender, LinkLabel).Tag
        Dim dtAdapter As SqlDataAdapter
        Dim dt As DataTable
        Dim sql As String = "select * from PT_acc_delivery where sa_ref = {appID}"
        connection()
        dtAdapter = New SqlDataAdapter(sql, conn)
        dtAdapter.Fill(dt)

        If dt.Rows.Count > 0 Then
            Dim row As DataRow = dt.Rows(0)
            With frm_accshowsale
                .AppID = appID
                .txtref.Text = row("sa_ref")
                '.txtAddress.Text = row("Address")
                ' .txtComment.Text = row("Comment")
                '.dtpDate.Value = row("AppDate")
                .ShowDialog()
            End With
            DisplayCurrentDate()
        End If

    End Sub
    Private Sub AddAppointmentToFlDay(ByVal startDayAtFlNumber As Integer)
        Dim startDate As DateTime = New Date(currentDate.Year, currentDate.Month, 1)
        Dim endDate As DateTime = startDate.AddMonths(1).AddDays(-1)
        Dim dtAdapte As SqlDataAdapter
        Dim dt As New DataTable
        Dim sql As String = "select * from aPT_acc_delvery_master"
        dtAdapte = New SqlDataAdapter(Sql, conn)

        For Each row As DataRow In dt.Rows
            Dim appDay As DateTime = DateTime.Parse(row("sa_date"))
            Dim link As New LinkLabel
            link.Tag = row("sa_ref")
          link.Name = $"link{row("sa_ref")}"
            link.Text = row("sa_amt")
            AddHandler link.Click, AddressOf ShowAppointmentDetail
            listFlDay((appDay.Day - 1) + (startDayAtFlNumber - 1)).Controls.Add(link)
        Next
    End Sub 

 <table style="background-color: blue; width: 100%;">
        <tr >
            <td style="width:50%">Column1</td>
            <td style="width:50%">Column2</td>
           
        </tr>
    </table>