Dim DB As Database
Dim Rs As Recordset
Dim lRow As Long
Dim lCol As Long
 
Set DB = DBEngine.OpenDatabase("DeineAccessMDB.mdb")
Set Rs = DB.OpenRecordset("DeineTabelle")
 
With MSFlexGrid1
  For lRow = .FixedRows To .Rows - 1
    Rs.AddNew
    For lCol = .FixedCols To .Cols - 1
      Rs(lCol) = .TextMatrix(lRow, lCol)
    Next lCol
    Rs.Update
  Next lRow
End WIth
 
Rs.Close
DB.Close
Set DB = Nothing