burada EBelge alanı link Me.EBelge de sıradan metin kutusu
gördüğünüz gibi ifadenin başına ve sonuna '# ile #' eklenmiş
onay kutusu için herhangi extra bir işarete gerek yok çünkü onay kutuları sayısal değer alır.

Dim StrSql As String

StrSql = " insert into TblDene " & _

         " ( ETarihi, GKurum, EBelge, Onay) values " & _

         " (" & CLng(Date) & ", '" & Me.GKurum & "','#" & Me.EBelge & "#'," & Me.Onay & ")"

CurrentDb.Execute StrSql