主题：DataTable如何导到EXCEL？

Dim cmd As new SQLCommand

    Dim dt As DataTable

    cmd.C

    cmd.CommandText = "Select * from 表A"

    dt = cmd.ExecuteReader

    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

    dlg.Filter= "Excel文件|*.xls" '设置筛选器

    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

        Tables(dt.name).SaveExcel(dlg.FileName, "表A")  '保存文件

    End If

请问如何导出dt到EXCEL