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