' FlexGrid-Inhalt in Variable speichern
Public Function FlexGrid_GetData(oGrid As MSFlexGrid) As String
 
  Dim nRow As Long
  Dim nCol As Long
  Dim nRowSel As Long
  Dim nColSel As Long
 
  With Form1.MSFlexGrid1
    ' aktuelle Selektion merken
    nRow = .Row
    nCol = .Col
    nRowSel = .RowSel
    nColSel = .ColSel
 
    ' Gesamten Zelleninhalt markieren
    .Row = 0
    .Col = 0
    .RowSel = .Rows - 1
    .ColSel = .Cols - 1
 
    ' Inhalt zuweisen
    FlexGrid_GetData = .Clip
 
    ' ursprüngliche Selektion wiederherstellen
    .Row = nRow
    .Col = nCol
    .RowSel = nRowSel
    .ColSel = nColSel
  End With
End Function

Private Sub Command5_Click()
Data1.Recordset.Edit
Data1.Recordset.Fields("ArtBez") = FlexGrid_GetData(MSFlexGrid1)
End Sub