pues no entiendo porque pero le agrege factrepci.close() y funciona si alguien me lo puede explicar seria un golaso
dejo el codigo por si alguien le sirve :S
Código vb:
Ver originalIf BuscarRegPrint(query, "facturas1", "facturasdetalles", "factu_ci", "facturas", True) = True Then
If ds.Tables("facturas").Rows.Count = 0 Then
MsgBox("No hay ningun Registro")
Else
factrepci.Close()
My.Computer.FileSystem.CreateDirectory("C:\XML")
Dim url As String = "C:\XML\factu_ci.xml"
ds.WriteXml(url, XmlWriteMode.WriteSchema)
factrepci.ShowDialog()
My.Computer.FileSystem.DeleteFile("C:\XML\factu_ci.xml")
conec2.Close()
End If
End If
Saludos