Aşağıdaki kodu denermisiniz,
Private Sub KaydetButonu_Click()
DENE = "INSERT INTO tablo1(Metin1, Metin2, Metin3, Metin4) values ('" & MetinKutusu1 & "', '" & MetinKutusu2 & "' , '" & MetinKutusu3 & "', '" & MetinKutusu4 & "')"
CurrentDb.Execute DENE
End Sub
Saygılar.