cmd.CommandText = cmd.CommandText & jlbh & "','" & yszjly & "','" & ysxdyear & "','" & ysxdbm & "','"& yszjxz & "','" & yswjbh & "','" & yswjbt & "',ysjehj,wjsmj)"
改成
cmd.CommandText = cmd.CommandText & jlbh & "','" & yszjly & "','" & ysxdyear & "','" & ysxdbm & "','"& yszjxz & "','" & yswjbh & "','" & yswjbt & "','" & ysjehj & "','" & wjsmj & "')"