Sorgu Ve Metin Kutusundan Tabloya veri kaydı

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

Set bb = Nothing

Merhaba, bu tür sorularda lütfen örnek uygulamanızı ekleyin. 

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

çok teşekkür ederim.