vb执行SQL　INSERT语句报错有关问题

vb执行SQL　INSERT语句报错问题
inser = "insert into hr_tm_monthresult(cpsn_num,vdepcode,cyear,cmonth,cpsn_name,nworkdays) values('" & spnum & "','" & sdepcode & "','" & dyear & "','" & smonth & "','" & sname & "'," & dmonthday & ")"

rs.Open sel, strconn, adOpenDynamic, adLockBatchOptimistic
 objcon.Execute inser


 前面几个变量都是字符型，dmonthday是single类型，执行上面这个语句总报')'附近有语法错，要是插入语句变成inser = "insert into hr_tm_monthresult(cpsn_num,vdepcode,cyear,cmonth,cpsn_name) values('" & spnum & "','" & sdepcode & "','" & dyear & "','" & smonth & "','" & sname & "')"是可以正常执行
到底错在哪呢

[解决办法]

VB code

'判断一下dmonthday变量是否在值inser = "insert into hr_tm_monthresult(cpsn_num,vdepcode,cyear,cmonth,cpsn_name,nworkdays) values('" & spnum & "','" & sdepcode & "','" & dyear & "','" & smonth & "','" & sname & "'," & dmonthday & ")"'记录写入语句，rs.open这句不需要'rs.Open sel, strconn, adOpenDynamic, adLockBatchOptimisticobjcon.Execute inser