Código APS para insertar registros en la base de datos conectada al SQLDataSource1

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inserta As String
inserta = "insert into experimento values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
SqlDataSource1.InsertCommand = inserta
SqlDataSource1.Insert()