formun kayıt kaynağını sil, formdaki metin kutularının denetim kaynaklarını sil.
Kaydet butonuna aşağıdaki kodu ekle ve form ve tablo bilgilerine göre değiştir.

Dim rs As New ADODB.Recordset

rs.Open "tabloadı", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.AddNew

rs("tablodakialanadı1") = formdakimetinkutusuadı1.Value

rs("tablodakialanadı2") = formdakimetinkutusuadı2.Value

rs("tablodakialanadı3") = formdakimetinkutusuadı3.Value

rs.Update

Set rs = Nothing