[VB.NET]救命啊!!!数据库导入excel中的问题

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
救命啊!!!数据库导入excel中的问题
用vb.net的语言怎么将sql 2000数据库中的一张表导入到excel中呢?本人研究了很久都没研究出来,急死了,如果服务器名是:abc,数据库名:book, 表名:123.将怎么实现呢?
求求大侠们帮帮忙....本人非常感激!!!
__________________________________________________________________________
怎么没人回,谢谢大虾们帮帮忙...
__________________________________________________________________________
方法有很多 如:
1.把DATATABLE里的数据一条记录一条记录写入EXCEL
2.把DATATABLE的数据导出成XML文件
3.把数据绑定到DATAGRID里,然后导出.
__________________________________________________________________________
好象第3是要在WEB里才能用
WIN里没有试过!
__________________________________________________________________________
能给个代码试试吗??谢谢...
__________________________________________________________________________
和SQL server操作类似的：
Dim conn As New Data.OleDb.OleDbConnection( Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Documents and Settings/weichen/桌面/新建 Microsoft Excel 工作表.xls;Extended Properties=Excel 8.0; )
conn.Open()
Dim comm As New OleDb.OleDbCommand
comm.CommandText = insert into [sheet1$] values( )
comm.CommandType = CommandType.Text
comm.Connection = conn
comm.ExecuteNonQuery()
更简单的：
dim myText as string=
Dim myc As Integer = ds.Tables(0).Columns.Count - 1
Dim myr As Integer = ds.Tables(0).Rows.Count - 1
Dim i As Integer
Dim j As Integer

For j = 0 To myc
mytext += ds.Tables(0).Columns(j).ColumnName & Chr(9)
Next
mytext += Chr(10)
For i = 0 To myr
For j = 0 To myc
mytext += ds.Tables(0).Rows(i).Item(j).ToString & Chr(9)
Next
mytext += Chr(10)
Next
Dim sw As New StreamWriter( excel文件地址 .Text, True, System.Text.Encoding.GetEncoding( GB2312 ))
sw.Write(mytext)
sw.Close()
sw.Dispose()
__________________________________________________________________________