我把数据从Access导入Excel后,出现了两个问题：
1。在Excel里的记录是原来的两倍(数据重复导入了一遍).而且不是按照Access里显示的顺序,好像是按照我输入的顺序.（Access里的顺序是按主键排序的）
2。数据库里的记录数没变,但是和数据库绑定的DataGrid里的数据和Excel是一样的，连顺序也一样.我明明是从Access里导的，而且里面没变，DataGrid怎么会变呢？
我不知道是我程序的问题还是Access里设置的问题,请高手帮我看看吧
Dim rowIndex, colIndex As Integer
rowIndex = 0
colIndex = 0

xlBook = xlApp.Workbooks().Add
xlSheet = xlBook.Worksheets("sheet1")

'将所得到的表的列名(, 赋值给单元格)
Dim Col As DataColumn
Dim Row As DataRow
For Each Col In Me.DataSet1.Tables("司机管理").Columns
colIndex = colIndex + 1
xlApp.Cells(1, colIndex) = Col.ColumnName
Next

'得到的表所有行(, 赋值给单元格)
For Each Row In Me.DataSet1.Tables("司机管理").Rows
rowIndex = rowIndex + 1
colIndex = 0
For Each Col In Me.DataSet1.Tables("司机管理").Columns
colIndex = colIndex + 1
xlApp.Cells(rowIndex, colIndex) = Row(Col.ColumnName)
Next Col
Next Row