problema con OpenXml

[mhalonso]

No me salta ningun error, simplemente cuando llamo al procedimiento almacenado no actualiza los registros. Mira esto es lo que hago para enviar el xml al procedimiento:

Dim tbl As DataTable = objDS.Tables("TABLA")
Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder(15000)
Dim sw As System.IO.StringWriter = New System.IO.StringWriter(sb)

Dim col As DataColumn
For Each col In tbl.Columns
col.ColumnMapping = System.Data.MappingType.Attribute
Next

objDS.WriteXml(sw, System.Data.XmlWriteMode.WriteSchema)

Dim com As New SqlCommand("dbo.sp_UpdateTabla")
com.Connection = Conecta_Sql()
com.CommandType = CommandType.StoredProcedure
com.Parameters.Add("@empdata", SqlDbType.NText).Value = sb.ToString()
com.Parameters.Add("@campo1", SqlDbType.Int).Value = Campo1
com.Parameters.Add("@campo2", SqlDbType.Int).Value = campo2
com.Parameters.Add("@campo1_cli", SqlDbType.Int).Value = campo1_cli
com.Parameters.Add("@campo2_cli", SqlDbType.Int).Value = campo2_Cli
com.Parameters.Add("@IdUsuario", SqlDbType.BigInt).Value = idusuario

com.CommandTimeout = 120

com.ExecuteNonQuery()
El ejemplo lo he cogido de aqui: http://support.microsoft.com/kb/316244/es
Este mismo ejemplo tal como esta, funciona perfectamente, yo lo he adaptado a mi código, pero no encuentro el porque no me actualiza los registros..
Ves algo raro, yo la verdad que no, es por lo que pido ayuda..
Muchas gracias, por vuestro tiempo.