Dim Table1rs As New ADODB.Recordset
Dim testAdapter As New OleDb.OleDbDataAdapter
Dim Table1 As DataTable = New DataTable
testAdapter.Fill(Table1, Table1rs)
OutPutCSV(filename, Table1)
我從OutPutCSV函數從Table1轉出csv格式,csv檔沒有欄位表頭,
想請教有什方式可以讓它在資料欄前面增加一列欄位表頭,謝謝幫忙