Perdonen la molestia soy novato en esto y quisiera que em ayudaran ocn esta funcion por que no inserta los datos para posteriormente guardarlos

 Public Shared Function Insertar(ByVal ClaveAlumno As String, ByVal Nombre As String) As Integer
        Dim cmd As New List(Of SqlClient.SqlParameter)
        cmd.Add(New SqlClient.SqlParameter("@ClaveAlumno", "ClaveAlumno"))
        cmd.Add(New SqlClient.SqlParameter("@Nombre", "Nombre"))
        Dim SP As String
        SP = "insertar"
        Return EjecutaSP(SP, cmd)
    End Function

les dejo mi funcion le deseo lo mejor y gracia spor las respuetas