Sub CommandButton17_Click()
' prüfen, wenn erfolgreich...
 
sevdatagrid.Recordset.Fields("subnr").value = 2
sevdatagrid.Recordset.update
sevdatagrid.RowRefresh
 
'nun wird über con.execute "insert into testtable(...) values(...)" der 
' subauftrag angelegt werden
End Sub