Problemas con store procedure que me hace un upload de datos de xml a sqlserver

[Pax-Man]

Bueno amigos estoy tratando de realizar este storeprocedure para hacer un upload de archivos xml a una base de datos

el codigo del storeprocedure es el siguiente:

Código:

ALTER PROCEDURE dbo.subirpagos2
@DATOS xml
AS
DECLARE @docHandle int	--Declara Un Variable entero

EXEC sp_xml_preparedocument @docHandle OUTPUT, @DATOS		
	Insert into pagos(cuenta,referencia,factura,asignacion,doc,fechadoc,fechacontable,fechavencimiento,cpago,demo,importe,doccomp,compensacion,Cl,usuario)
	SELECT cuenta,referencia,factura,asignacion,doc,fechadoc,fechacontable,fechavencimiento,cpago,demo,importe,doccomp,compensacion,Cl,usuario FROM OPENXML(@docHandle,'pagos/pago',1)
	With (cuenta varchar(10),
					referencia varchar(6),
					factura varchar(10),
					asignacion varchar(6),
					doc varchar(10),
					fechadoc datetime,
					fechacontable datetime,
					fechavencimiento datetime,
					cpago varchar(4),
					demo int,
					importe numeric(10, 2),
					doccomp numeric(12, 0),
					compensacion varchar(8),
					Cl nchar(2),
					usuario varchar(10))
EXEC sp_xml_removedocument @docHandle

y este sp es llamado de la siguiente forma

Código:

        Dim conn As New SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
        Dim cmd As New SqlClient.SqlCommand
        Dim n As Integer = 0
        cmd.CommandText = "subirpagos2"
        cmd.Connection = conn
        cmd.CommandType = CommandType.StoredProcedure
        Dim strFileName As String = ""
        Dim FileMapPath As String = ""
        Dim archivo As String = "pagos.xml"
        FileMapPath = Server.MapPath("xml")
        strFileName = FileMapPath & "\" & archivo
        cmd.Parameters.Add("@datos", SqlDbType.Xml).Value = My.Computer.FileSystem.ReadAllText(strFileName)

        cmd.Connection.Open()
        n = cmd.ExecuteNonQuery()
        conn.Close()

        MsgBox("cantidad de registro Procesado " & (n / 2).ToString, MsgBoxStyle.Information, "Listo")

y mi base de datos

[usuariobaneado]

Yo he enviado xml a store procedures pero el parámetro de entrada lo he puesto como varchar(max) y desde el código de aplícación enviarselo como una cadena de caracteres, claro que lo que contiene es texto en formato de xml.

luego ejecutar el procedimiento sp_xml_preparedocument y el resto de cosas tal como lo estás haciendo