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