错误，没有一个或多个所需的参数值

为什么这的错误giving.I要到17场的数据提交34。
只是想提交到数据库下面这些值
V1 = TextBox1.Text.Trim（）
& #160; V2 = TextBox2.Text.Trim（）
 0; V3 = TextBox3.Text.Trim（）
& #160; V4 = TextBox4.Text.Trim（）
V5 = TextBox5.Text.Trim（）
&# 160;V6 = TextBox6.Text.Trim（）
  ; V7 = TextBox7.Text.Trim（）
&# 160; V8 = TextBox8.Text.Trim的（）

60; V9 = TextBox9.Text.Trim（）
V10 = ta1.Value
V11 = ta2.Value
V12 = ta3.Value
& #160;V13 = ta4.Value
& #160; V14 = ta5.Value
& #160; V15 = ta6.Value
& #160; V16 = ta7.Value
& #160; V17 = ta8.Value

错误 - 一个或多个所需的参数没有值
我的代码如下

   s = TextBox5.Text.Trim()

        Try

            cn.Open()

            cmd = New OleDbCommand("Select ccode from template where vmail='" & s & "'", cn)

            dr = cmd.ExecuteReader

            dr.Read()

            b = dr.HasRows()

            If b Then

                Label2.Text = "Record already EXIST"

                TextBox1.Focus()

                v1 = TextBox1.Text.Trim()

                v2 = TextBox2.Text.Trim()

                v3 = TextBox3.Text.Trim()

                v4 = TextBox4.Text.Trim()

                v5 = TextBox5.Text.Trim()

                v6 = TextBox6.Text.Trim()

                v7 = TextBox7.Text.Trim()

                v8 = TextBox8.Text.Trim()

                v9 = TextBox9.Text.Trim()

                v10 = ta1.Value

                v11 = ta2.Value

                v12 = ta3.Value

                v13 = ta4.Value

                v14 = ta5.Value

                v15 = ta6.Value

                v16 = ta7.Value

                v17 = ta8.Value

 

                v18 = TextBox10.Text.Trim()

                v19 = TextBox11.Text.Trim()

                v20 = TextBox12.Text.Trim()

                v21 = TextBox13.Text.Trim()

                v22 = TextBox14.Text.Trim()

                v23 = TextBox15.Text.Trim()

                v24 = TextBox16.Text.Trim()

                v25 = TextBox17.Text.Trim()

                v26 = TextBox18.Text.Trim()

                v27 = ta9.Value

                v28 = ta10.Value

                v29 = ta11.Value

                v30 = ta12.Value

                v31 = ta13.Value

                v32 = ta14.Value

                v33 = ta15.Value

                v34 = ta16.Value

            Else

                Try

                    str = "Insert into template (tname,tdob,tsex,tmo,tmail,tcity,tpin,tst,tco,tca,tskill,tedu,ttrain,texpt,tproj,texp,tint) values('" & v1 & "','" & v2 & "','" & v3 & "','" & v4 & "','" & v5 & "','" & v6 & "','" & v7 & "','" & v8 & "','" & v9 & "','" & v10 & "','" & v11 & "','" & v12 & "','" & v13 & "','" & v14 & "','" & v15 & "','" & v16 & "','" & v17 & "')"

                    cmd = New OleDbCommand(str, cn)

                    cmd.ExecuteNonQuery()

                    Label2.Text = "Record Added"

                Catch ex As Exception

                    Response.Write(ex.Message)

                End Try

            End If

        Catch ex As Exception

            Response.Write(ex.Message)

        End Try

 



        cn.Close()