' Call the XML web service to update data to the backend Public Function SendData(ByVal ds As DataSet) As Boolean ' Create a new dataset that only contains ' the inserted/modified records Dim dsChanges As DataSet dsChanges = ds.GetChanges() ' Create an instance of the XML web service object Dim oPatient As New MedAppWS() ' Create an XML Diffgram with inline schema to be ' passed to the XML web service Dim serializer As New XmlSerializer(GetType(DataSet)) Dim ms As MemoryStream = New MemoryStream() Dim writer = New XmlTextWriter(ms, New UTF8Encoding()) serializer.Serialize(writer, dsChanges) ms.Position = 0 Dim sr As New StreamReader(ms) ' Call the XML web service and return if update ' was successful or not Return oPatient.UpdateData(sr.ReadToEnd()) End Function>Hello!