MasterTabelle mit den Feldern 
MstKey (Autowert) (Primärschlüssel),
Text (Text)

DetailTabelle mit den Feldern
DtlKey (Autowert) (Primärschlüssel)
Text (Text)
MstKey (Zahl: Long Integer) (Eigenschaften 'Eingabe erforderlich'=Nein und _
  'Standardwert'="")

MasterTabelle.MstKey --> DetailTabelle.MstKey

Option Explicit
 
Dim DB As DAO.Database
 
Private Sub Form_Load()
    On Error GoTo ErrorHandler
    'Datenbank öffnen
    Set DB = DBEngine.OpenDatabase(App.Path & "\db1.mdb")
    'Grid einrichten und Recordset zuweisen (auf DetailTabelle)
    With sevGrid1
        .DataMode = Mode_Recordset
        .AllowEdit = True
        Set .Recordset = DB.OpenRecordset("SELECT * FROM DetailTabelle;")
        .Refresh
    End With
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & ": " & Err.Description, vbCritical, "Fehler", _
      Err.HelpFile, Err.HelpContext
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    'Datenbank schließen
    DB.Close
End Sub
 
Private Sub sevGrid1_ErrorUpdate(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sText As String, ByVal nError As Long, ByVal sDescription As String)
    'Fehlermeldung ausgeben
    MsgBox "Fehler " & nError & ": " & sDescription, vbCritical, "Datensatz" & _
      "nicht gespeichert"
End Sub

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...