Cómo insertar un fichero .xml en un campo de tipo XML de SQL server 2005 o 2008

A petición de unos alumnos aqui teneis el códido de cómo insertar directamente un fichero
 XML en un campo de tipo XML con .net aunque sea con un poco de retraso:

En C#

 
using (SqlConnection Conn = new SqlConnection(ConnectionString))
{
 Conn.Open(); 
 using (SqlCommand Cmd = Conn.CreateCommand())
 {
	Cmd.CommandText = @"INSERT INTO TablaConXML 
			    VALUES 
			(4,'CampoNoXML',@punteroaCampoXML)"; 
	SqlXml ParametroSQLXML 
	= new SqlXml(new XmlTextReader("Fichero.Xml"));
	Cmd.Parameters.AddWithValue("@punteroaCampoXML"
			, ParametroSQLXML); 
	Cmd.ExecuteNonQuery();
 }
}

En VB.Net 

 
Using Conn As SqlConnection = New SqlConnection(ConnectionString)
 Conn.Open()
 Using Cmd As SqlCommand = Conn.CreateCommand()
	Cmd.CommandText = "INSERT INTO TablaConXML 
			   VALUES 
			  (4,'CampoNoXML',@punteroaCampoXML)"
	Dim ParametroSQLXML As SqlXml 
	= New SqlXml(New XmlTextReader("Fichero.Xml"))
	Cmd.Parameters.AddWithValue("@punteroaCampoXML", ParametroSQLXML)
	Cmd.ExecuteNonQuery()
 End Using
End Using

Que lo disfruteis