Set db = Workspaces(0).OpenDatabase(App.Path & "\dfgl.mdb", False, False, ";pwd=mggl")
   sql = "UPDATE [drtmp] SET [计划交货时间] =  " & Text45.Text & " "   (Text45.Text 中是一个动态的日期，执行后数据表中添加的值不是Text45.Text 中的数据，请各位达人帮看看错在哪里？)
     db.Execute sql
  dgl.Data1.Refresh
db.Close

Text45.Text 中是一个动态的日期
需要按 SQL 里所规定的 日期格式 传递进去。也就是在这里你要转格式，排除掉非法日期。

ACCESS库中日期需要加#