problema al llamar metodos vb desde JS

[joseberrocalobando]

buenas gente tengo un problema, resulta ser que necesito hacer el llamado a un metodo en Vb desde JavaScript pero depende de la manera en como lo haga este no funciona, voy a poner los codigos

Código Javascript:

var params = "{ Nombre: '" + Objeto + "'}";
                             
 PageMethods.AgregarChofer(params);  
// este funciona, va al lado servidor y todo perfecto
 

pero usando Ajax me da un codigo de error 500, el cual no entiendo la verdad

Código Javascript:

$.ajax({
                    type: "POST",
                    contentType: "application/json; charset=utf-8",
                    url: "Realizar.aspx/AgregarChofer",
                    data: params,
                    dataType: "json",
                    success: function (data) {
                        alert('Entro');
                        $("#gvSeleccionados").empty();
 
                        if (data.d.length > 0) {
                            $("#gvSeleccionados").append("<tr> <th> </th> <th>Nombre</th> </tr>");
                            for (var i = 0; i < data.d.length; i++) {
                            alert(data.d[i].Nombre)
                                $("#gvSeleccionados").append("<tr><td>" +
                            "<a href=\" \" class=\"Iconos\"> <img " +
                            "src=\"images/user_remove.png\" " +
                            "onclick=\"QuitarChofer(this)\" alt=\"Agregar Chofer\" " +
                            "/></a>" + "</td> <td>" +
                            data.d[i].Nombre + "</td></tr>");
                            }
                        }
                    },
                    error: function (result) {
                        alert("Error al llenar el grid");
 
                    }
                });
 

el metodo en la parte servidor es el siguiente:

Código ASP:

<System.Web.Services.WebMethod()> _
    Public Shared Function AgregarChofer(data As Object) As pChofer()
        Dim Choferes As New List(Of pChofer)()
        Dim posible As Boolean = True
 
        Dim Json As String = data
        Dim ser As JObject = JObject.Parse(Json)
        Dim datos As List(Of JToken) = ser.Children().ToList
 
        For Each item As JProperty In datos
            item.CreateReader()
            Select Case item.Name
                Case "Nombre"
                    If Lista.choferes.Count > 0 Then
                        For Each value In Lista.choferes
                            If value = item.Value Then
                                posible = False
                                MsgBox("Ese chofer ya ha sido agregado", MsgBoxStyle.OkOnly, "No se pudo agregar")
                                Return Nothing
                                Exit For
                            Else
                                Lista.choferes.Add(item.Value)
                            End If
 
 
                        Next
                    Else
                        Lista.choferes.Add(item.Value)
                    End If
 
            End Select
        Next
 
 
        For Each value In Lista.choferes
            Dim oChofer As New pChofer
            oChofer.Nombre = value.ToString
            Choferes.Add(oChofer)
        Next
 
        Return Choferes.ToArray
    End Function
 

Agradeceria cualquier ayuda que me puedan dar, y de antemano muchas gracias