How To Solve This Problem I Use Vb.Net

ALTER proc Sp_store@Energiaa
(
@Value2 varchar(50),
@Value3 varchar(50),
@Value4 varchar(50),
@Value5 varchar(50),
@Value6 varchar(50),
@Value7 datetime
)
as
begin
insert into dbo.test1 (Value2,Value3,Value4,Value5,Value6,Value7)
values (@ddl_Value2,@txt_Value3,@txt_Value4,@txt_Value5,@txt_Value6,@DateTimePicker_Value7)
end

Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
        If (ddl_Value2.Text = "") Then
            Savevalidation()
        Else




           


            Dim cmd As New SqlCommand
            Dim str As String
            Dim count As Integer


            Try

                gl_Con = New SqlConnection("server=HARIOM;Initial Catalog=vbtest;Integrated Security=True")

                Dim mycommand As SqlClient.SqlCommand = New SqlClient.SqlCommand()
                mycommand.Connection = gl_Con
                
                str = "execute sp_insert@test1"
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.Add("@Value2", SqlDbType.VarChar, 50).Value = ddl_Value2.Text
                cmd.Parameters.Add("@Value3", SqlDbType.VarChar, 50).Value = txt_Value3.Text
                cmd.Parameters.Add("@Value4", SqlDbType.VarChar, 50).Value = txt_Value4.Text
                cmd.Parameters.Add("@Value5", SqlDbType.VarChar, 50).Value = txt_Value5.Text
                cmd.Parameters.Add("@Value6", SqlDbType.VarChar, 50).Value = txt_Value6.Text
                cmd.Parameters.Add("@Value7", SqlDbType.DateTime).Value = DateTimePicker_Value7.Text
                gl_Con.Open()
                cmd = New SqlCommand(str, gl_Con)
                cmd.ExecuteNonQuery()
                
            Catch ex As System.Data.SqlClient.SqlException
                MsgBox(ex.Message)
            End Try
            gl_Con.Close()
        End If
    End Sub