简单点这样写
cmd.CommandText = "update {终端日志} set 前台签到 ='" & Format(Date.now,"yyyy-MM-dd HH:mm:ss") & "',是否在线=1 where 终端机名='" & 本机名称 & "'"