红色部分，用sql server 数据库没有问题，用Access数据库出错，提示 标准表达式中数据类型不匹配。
老师提示一下，谢谢！
Dim cmd As New SQLCommand
cmd.ConnectionName = Vars("CurrentProjectConnection")
Dim f1 As String = "Creator,TimeCreation,Possessor,ComName,ComNumber"
Dim f2 As String = "?, ?, ?, ?, ?"
cmd.CommandText = "Insert Into UserCom (" & f1 & ") Values(" & f2 & ")"
cmd.Parameters.Add("@Creator", Vars("UserName")) '创建者
cmd.Parameters.Add("@TimeCreation", Date.now) '创建时间
cmd.Parameters.Add("@Possessor", Vars("UserName")) '所有者
cmd.Parameters.Add("@ComName", "单位名称") '所有者
cmd.Parameters.Add("@ComNumber", "DW00001234") '编号
Access不支持毫秒，需要格式化一下
cmd.Parameters.Add("@TimeCreation", format(Date.now,"yyyy-MM-dd HH:mm:ss")) '创建时间