即使Microsoft Access中有多条记录，我的记录集也只返回一条记录

-- 错误的查询示例，仅返回一条记录
SELECT TOP 1 * FROM YourTable;

-- 正确的查询示例，返回所有匹配的记录
SELECT * FROM YourTable WHERE SomeCondition;

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("YourQuery")

Do While Not rs.EOF
    ' 处理每条记录
    Debug.Print rs!FieldName.Value
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM YourTable", conn, adOpenStatic, adLockOptimistic

Do While Not rs.EOF
    ' 处理每条记录
    Debug.Print rs!FieldName.Value
    rs.MoveNext
Loop

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing