以下是我将datagrid控件里的数据导入到excel中的代码，但只能导出当前显示页面的数据，我想把全部的数据都导出来，
该怎么改啊?
Dim i, j As Integer
Dim xlApplication As Excel.Application, xlWorkbook As Excel.Workbook, xlSheet
On Error Resume Next
Set xlApplication = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Set xlApplication = CreateObject("Excel.Application")
Set xlWorkbook = xlApplication.Workbooks.Add
Set xlSheet = xlWorkbook.ActiveSheet
For i = 1 To DataGrid1.Columns.Count
xlSheet.Cells(1, i) = DataGrid1.Columns(i - 1).Caption
For j = 0 To DataGrid1.VisibleRows - 1
xlSheet.Cells(j + 2, i) = DataGrid1.Columns(i - 1).CellText(DataGrid1.RowBookmark(j))
Next j
Next i
xlApplication.Visible = True
Set xlSheet = Nothing
Set xlWorkbook = Nothing
Set xlApplication = Nothing
DataGrid1.VisibleRows这是可见行的行数，改成数据源的总记录数就行了。
数据源的总记录数 这个代码该怎么写啊？
我把这句For j = 0 To DataGrid1.VisibleRows - 1改成了For j=0 to rs.recordcount-1
但是导到EXCEL后，出现了窜行问题，而且只导出了前三行，其它行都没导出来
For i = 1 To DataGrid1.Columns.Count
