Can someone tell me what is the matter with this code:

Code:
    Public Sub showdataset()
        For Each dt As DataTable In dsEvents.Tables
            Response.Write("<table border='1'>" & vbCrLf)
            For Each row As DataRow In Table.Rows
                Response.Write("<tr>" & vbCrLf)
                For Each dc As DataColumn In Table.Columns
                    Response.Write("<td>" & row(dc).ToString & "</td>" & vbCrLf)
                Next
                Response.Write("</tr>" & vbCrLf)
            Next
            Response.Write("</table>" & vbCrLf)
        Next
    End Sub