Merhabalar.

Aşağıdaki kod ile sorgudaki değerleri tabloya kayıt ediyor. Ancak Tablodaki TARIH alanına '01.01.2018' manuel olarak tarih verebiliyorum. Bu TARIH alanına formumda ki Metin Kutusundaki tarihi verdirebilir miyiz. Teşekkür ederim.

Dim bb As ADODB.Connection
 Set bb = Application.CurrentProject.Connection

bb.Execute " insert into gecicii(CARIID,TARIH,AÇIKLAMA,BORC,KALAN) select CARIID,'01.01.2018','Geçen Yıl Devri',BAKİYE,KALAN from [S_devir]"
bb.Close