Dim ciltserinumara, ciltilksayfaNO, SondefterIlkSayfa, gondermeno, ambarno As Integer

Dim gondermetarihi, ambartarihi As Date

Dim ekleme As String



    ciltserinumara = Me.txtCiltSeriNO

    ciltilksayfaNO = Me.txtCildilkSayfa

    SondefterIlkSayfa = Me.txtAdeti

    gondermetarihi = Me.txtGonderimTarihi

    gondermeno = Me.txtGonderimNo

    ambartarihi = Me.txtAmbaraGirTar

    ambarno = Me.txtAmbarNo

    

    If ciltilksayfaNO <= SondefterIlkSayfa Then

    

        ciltilksayfaNO = ciltilksayfaNO + 50

        ekleme = "INSERT INTO defterler ([CildinSerisi],[CildinIlkSahifeNosu], [GonderimYaziTarih],[GonderimYaziNO] ,[AmabaraGirisTar],[AmbaraGirBelgeNo]) VALUES (" & ciltserinumara & " ," & ciltilksayfaNO & " , #" & Format(gondermetarihi, "mm\/dd\/yyyy") & "# ," & gondermeno & ",#" & Format(ambartarihi, "mm\/dd\/yyyy") & "#," & ambarno & ")"

        Debug.Print ekleme

        DoCmd.RunSQL ekleme

        

    End If

VALUES dan önce & işareti kullanmışsınız olmayacaktı. Ayrıca tarihleri direkt yazınca olmuyor çevirmek için Format kullanmalısınız. İşte örnek uygulama eklemenin kolaylığı burada.