参数化查询的问题

 Dim cmd As ADODB.Command = New ADODB.Command

                Dim cnn As ADODB.Connection

                cnn = New ADODB.Connection

                cnn.ConnectionString = sConString

                cnn.ConnectionTimeout = 30

                cnn.Open()

                cmd.ActiveConnection = cnn

                cmd.CommandText = "Insert into T_PRODUCT(F_PRDID，F_PRTID,F_PRDNO,F_PRDNAME,F_PRDDESC,F_PRDALIAS,F_PRDMEMO) values ((select abs(max(F_PRDID)+1) from T_PRODUCT),@F_PRTID,@F_PRDNO,@F_PRDNAME,@F_PRDDESC,@F_PRDALIAS,@F_PRDMEMO)"

                cmd.CommandType = 1

                cmd.Parameters.Append(cmd.CreateParameter("@F_PRTID", 3, 1, 10, ComboBox1.SelectedValue))

                cmd.Parameters.Append(cmd.CreateParameter("@F_PRDNO", 129, 1, 10, TextBox1.Text))

                cmd.Parameters.Append(cmd.CreateParameter("@F_PRDNAME", 129, 1, 120, TextBox4.Text))

                cmd.Parameters.Append(cmd.CreateParameter("@F_PRDDESC", 129, 1, 150, "qqq"))

                cmd.Parameters.Append(cmd.CreateParameter("@F_PRDALIAS", 129, 1, 150, TextBox2.Text))

                cmd.Parameters.Append(cmd.CreateParameter("@F_PRDMEMO", 129, 1, 200, TextBox3.Text))

                ‘Dim qsql As String = " '" & ComboBox1.SelectedValue.ToString & "','" & TextBox1.Text & "' ,'" & TextBox4.Text & "',qqq,'" & TextBox2.Text & "','" & TextBox3.Text & ""

                cmd.Execute()

                cnn.Close()