通过VBA打印访问表内容

我想通过Excel VBA读取访问表,并打印每行和每列的内容。

到目前为止,我有以下代码,但它只打印第一行的内容。如何使其打印所有行?

我的测试表有两列(因此 For i= 0 to 1 )和4行,但实际上我可能有可变的列和行数,所以代码最好能涵盖这一点。

Sub get_column()

Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As String
Dim i As Long

Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=M:\test_database.accdb;" '& _
'"User Id=admin;Password=admin"
strSql = "SELECT Table1.CC_Number, Table1.Region FROM Table1;"
cn.Open strConnection
Set rs = cn.Execute(strSql)
For i = 0 To 1
    Debug.Print rs.Fields(i)
Next i
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub