如何使用 VisualBasic 将数据从数据库提取到 Excel 文件

问：

我需要使用 VisualBasic 将数据从 Access DB 提取到 Excel 文件。 我做了一个目前很好的例程，但经过大量测试，我发现它并不能提取所有记录！当我尝试提取只有 1 条记录的数据库并且文件 excel 为空时，我发现了此失败!! 提取的代码部分是这样的：

    For i = 1 To ds.Tables(0).Rows.Count - 1
        For j = 0 To ds.Tables(0).Columns.Count - 1
            xlWorkSheet.Cells(i + 1, j + 1) =
            ds.Tables(0).Rows(i).Item(j)
        Next
    Next

谢谢