problema borrando registros en datagrid

[miguel_20042004]

Hola a todos!
Estoy trabajando con un datagrid que tiene como fuente de datos un archivo XML
El usuario puede editar y borrar cada uno de los registros de este datagrid pero se me produce un problema cuando se trata de eliminar TODOS los registros ..ya que el datagrid se queda sin datos!! y me da error al tratar de hacer DataBind()

el codigo q elimina registros es el siguiente:

Sub cmDelete(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
Dim dsDatos2 As DataSet = dsDatos()
Dim fila As Integer = CInt(e.Item.ItemIndex)
dsDatos2.Tables(0).Rows(fila).Delete()
dsDatos2.WriteXml("RutaXml")
Rejilla.EditItemIndex = -1
Rejilla.DataSource = dsDatos()
Rejilla.DataBind()

End Sub

Protected Function dsDatos() As DataSet
Dim dsDatos2 As DataSet = New DataSet
dsDatos2.ReadXml("RutaXml")
Return dsDatos2
End Function

estoy tratando de tener un primer registro en el XML que contenta datos
sin relevancia y "ocultarlo" a nivel de pagina para el usuario
a fin de hacer "creer" al usuario q ha eliminado todos sus registros y asi evitar que mi XML quede sin datos
nose si sea lo mas optimo pero por ahora no tengo otra idea..
espero haber sido claro con mi problema
Desde ya Muchas Gracias por cualquier ayuda recibida...