What’s Wrong with This Code?

This code looks perfect to me, but its throwing an error. Basically its telling me that I need to create the Parameters before I use them, but as you can see - I did create them. Any ideas?
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Declare variables.
        SqlDataSource1.InsertParameters("varTitle").DefaultValue = TextBox1.Text
        SqlDataSource1.InsertParameters("varPopularity").Defau ltValue = DropDownList1.SelectedValue
        SqlDataSource1.InsertParameters("varDescription").DefaultValue = TextBox2.Text
        SqlDataSource1.InsertParameters("varDangers").DefaultValue = TextBox3.Text
        SqlDataSource1.InsertParameters("varVariants").DefaultValue = TextBox4.Text
        SqlDataSource1.InsertParameters("varSource").DefaultValue = TextBox5.Text
        SqlDataSource1.InsertParameters("varType").DefaultValue = DropDownList2.SelectedValue
        SqlDataSource1.InsertParameters("varApproved").DefaultValue = 0
        SqlDataSource1.Insert()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        ' Dim sql As String = "INSERT INTO Game (Title, Popularity, Description, Dangers, Variants, Source, Type, Approved) VALUES ('" & varNewTitle & "', " & varPopularity & ", '" & varNewDescription & "', '" & varNewDangers & "', '" & varNewVariants & "', '" & varNewSource & "', " & varType & ", 0)"
        ' Add Game to database.
        'SqlDataSource1.InsertCommand = sql
        ' SqlDataSource1.Insert()
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Me.IsPostBack = False Then
            SqlDataSource1.InsertCommandTy pe = SqlDataSourceCommandType.StoredProcedure
            SqlDataSource1.InsertCommand = "AddGames"
            SqlDataSource1.InsertParameter s.Add(New Parameter("varTitle", TypeCode.String))
            SqlDataSource1.InsertParameter s.Add(New Parameter("varPopularity", TypeCode.Int16))
            SqlDataSource1.InsertParameter s.Add(New Parameter("varDescription", TypeCode.String))
            SqlDataSource1.InsertParameter s.Add(New Parameter("varDangers", TypeCode.String))
            SqlDataSource1.InsertParameter s.Add(New Parameter("varVariants", TypeCode.String))
            SqlDataSource1.InsertParameter s.Add(New Parameter("varSource", TypeCode.String))
            SqlDataSource1.InsertParameter s.Add(New Parameter("varType", TypeCode.Int16))
            SqlDataSource1.InsertParameter s.Add(New Parameter("varApproved", TypeCode.Int16))
        End If
    End Sub