Dim I As Long
  Dim sText As Long
  Dim fld As Field
 
  With DBGrid1
    For I = 0 To .SelBookmarks.Count - 1
      Data1.Recordset.Bookmark = .SelBookmarks(I)
      For Each fld In Data1.Recordset.Fields
        sText = sText & CStr(fld.Value)
      Next
      sText = sText & vbCrLf
    Next I
  End With