如何在Access VBA中将表单中的日期插入数据库

Question

我创建了一个用于接收数据的表单并将其插入Access DB。字段之一是日期，我正在使用日期选择器。如果插入日期值，则仅显示时间戳。谁能帮忙吗？

        dbs.Execute " INSERT INTO Pledge_Det_Tb " _
        & "(Book_Num,Pledge_Num,Pledge_Amt) VALUES " _
        & "(" & Var_Book_Num & "," & Format(Var_Pledge_Dat, "yyyy-mm-dd 
        hh:nn:ss") & "," & Var_Pledge_Amt & ");"