Private Sub sb_DttRfr(pID&, pDtt$())
Dim rst As Recordset, bkm(-1 To 1) As Variant
Dim j%
Dim i As Byte
    With Form_fDttAdd
        .Painting = False
            .RecordSource = fn_SQL(pID, pDtt) ' SQL query compose
            
            Set rst = .RecordsetClone
            With rst
                .FindFirst "[ID] = " & (70000 + pID)
                If .NoMatch Then Stop
                bkm(0) = .Bookmark
                For j = -1 To 1 Step 2
                    i = 0
                    Do
                        bkm(j) = .Bookmark
                        Select Case j
                            Case -1:    .MovePrevious
                            Case 1:     .MoveNext
                            Case Else:  Stop
                        End Select
                        i = i + 1
                        If i > 4 Then Exit Do
                    Loop Until (.BOF Or .EOF)
                    .Bookmark = bkm(0)
                Next
            End With
            .Bookmark = bkm(-1)
            .Bookmark = bkm(1)
            .Bookmark = bkm(0)
        .Painting = True
    End With
End Sub