Dim objDb as DAO.Database
Dim objRs as DAO.Recordset
 
Set objDb = DbEngine.Workspaces(0).Databases(0)
Set objRs = objDb.OpenRecordset("Tabelle1")
 
With objRs
    .AddNew
    .Fields("Sonstiges") = NameDesTextFeldes.Text
    .Update
End With

corsa(r)

"Zwei Dinge sind unendlich: Das Universum und die
menschliche Dummheit. Aber bei dem Universum
bin ich mir noch nicht ganz sicher."
(Albert Einstein)