[VB2008]copia record di un db in un altro db

[Jeremy75]

Primo: Vedi .... se avessi mostrato subito il codice, altri avrebbero evitato di perder tempo a suggerirti cose che non corrispondevano alle tue intenzioni.
Secondo: Se impostassi OptionStrict On , ti accorgeresti che il parametro passato al costruttore dell'oggetto XmlTextWriter è cannato.
Modifica il tuo codice in questo modo

Function SalvaRilevaz(ByRef drcm As Data.SqlServerCe.SqlCeDataReader) As String
        SalvaRilevaz = ""
        Dim Rilevaz As String = "C:\Users\Administrator\Desktop\Rilevaz.xml"

        Dim textWriter As New Xml.XmlTextWriter(Rilevaz,System.Text.Encoding.ASCII)
        textWriter.WriteStartDocument()
        textWriter.WriteComment("file Rilevazione salvato il" & Date.Now)

        While drcm.Read()
            textWriter.WriteStartElement("ami_commes")
            textWriter.WriteStartElement("dtcod")
            textWriter.WriteString(drcm(0))
            textWriter.WriteEndElement()
            textWriter.WriteStartElement("mi_commes_ID")
            textWriter.WriteString(drcm(1))
            textWriter.WriteEndElement()
 End While
        textWriter.WriteEndElement()
        textWriter.WriteEndDocument()
        textWriter.Close()
        Return Rilevaz
    End Function

Facci sapere....
Ciao