Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)
    With rs
        .MoveFirst
        Do Until .EOF

    Dim MyDB As Database
    Dim MyRecSet As Recordset
    Dim SQLString As String
    
    SQLString = "SELECT * FROM Categories WHERE CategoryID >= " & Criteria    ' The SQL search string
    Set MyDB = CurrentDb
    Set MyRecSet = MyDB.OpenRecordset(SQLString)    ' Creating a recordset using the SQL string
    While Not MyRecSet.EOF
        Debug.Print MyRecSet!CategoryID & ": " & MyRecSet!CategoryName    ' Looping through the created recordset and outputing value
        MyRecSet.MoveNext
    Wend
    MyRecSet.Close            ' Closing the recordset
    Set MyRecSet = Nothing    ' Eliminating the object variable
    Set MyDB = Nothing        ' Eliminating the other object variable

    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)  ' this would be a dynaset type of recordset
    With rs
        If Not .EOF Then
          .MoveFirst
          Do Until .EOF
            ' do stuff here
            .MoveNext
          Loop
       End If
    End With

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim strSQL As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strOptionItem As String
    Dim intY As Integer  'vertical position
    Dim intSpace As Integer 'horizontal space between values
    Dim strOptionCategory As String
    Dim boo12 As Boolean
    Dim boo34 As Boolean
    Dim boo5 As Boolean
    Dim boo6 As Boolean
    boo12 = False
    boo34 = False
    boo5 = False
    boo6 = False

    intY = 570
    intSpace = 70

    strSQL = "SELECT InvoiceNumber, OptionSortOrder, OptionCategory, OptionItems, " & _
        "OptionFormat " & _
        "FROM GuitarDetails INNER JOIN FinishOptions " & _
        "ON GuitarDetails.Option_Item = FinishOptions.OptionItems " & _
        "WHERE InvoiceNumber = '" & Me.InvoiceNumber & "' " & _
        "ORDER BY OptionSortOrder, Option_Item"
        
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)
    With rs
        .MoveFirst
        Do Until .EOF

            CurrentY = intY
            CurrentX = CurrentX + intSpace
  
          Select Case .Fields("OptionSortOrder")
              Case 1, 2
                Me.CurrentY = 570
                If boo12 = False Then
                   'Me.Print Me.GuitarItem
                   Me.CurrentY = 570
                   Me.CurrentX = 1270
                   boo12 = True
                End If

' and so on until all the Case is defined ...

             End Select

' other stuff here for font formatting ...

            Me.Print strOptionItem
            .MoveNext
        Loop
        .Close
    End With
    Set rs = Nothing
    Set db = Nothing

End Sub