Dim cmd2 As New SQLCommand '向选课单发送记录，非次卡，团课
cmd2.C
cmd2.CommandText = "Insert Into 预约选课(课程名称,用户姓名,选课时间，上课时间，openid，课程类别，授课老师) Values(?,?,?,?,?,?,?)"
cmd2.Parameters.Add("@课程名称", kcmc)
messagebox.Show(xingming)
messagebox.Show(Date.Today())
messagebox.Show(CDate(skrq))
messagebox.Show(openid)
messagebox.Show(kclb)
messagebox.Show(skls)
cmd2.Parameters.Add("@用户姓名", xingming)
cmd2.Parameters.Add("@选课时间", Date.Today())
cmd2.Parameters.Add("@上课时间", CDate(skrq))
cmd2.Parameters.Add("@openid", openid)
cmd2.Parameters.Add("@课程类别", kclb)
cmd2.Parameters.Add("@授课老师", skls)
cmd2.ExecuteNonQuery()
前边都没问题，执行到最后这句黄色部分就会报错，提示逗号附近有错误。