这有点过时了，所以您可能想拿一本关于该主题的书。但是，这里有大量的访问资源以及一些教程和示例。但是，基本上…
Dim dbs As DatabaseDim rs As RecordsetDim strSQL As StringSet dbs = CurrentDbstrSQL = 'your query hereSet rs = dbs.OpenRecordset(strSQL)If Not (rs.EOF And rs.BOF) Then rs.MoveFirst 'get results using rs.Fields()Else'Use results
每条评论：看一下记录集类。它包含一个称为“字段”的集合，这些集合是您的查询返回的列。不知道您的模式，很难说，但是类似…
rs.MoveFirstDo While Not rs.EOF 'do something like rs("SomeFieldName") rs.MoveNextLoop就像我说的，您最好的选择是读一本关于这个主题的书，其中有很多例子。
