... object by using the adDefaultStream property and the Record object itself: Set conn = CreateObject("ADODB.Connection") Set rec = CreateObject("ADODB.Record") Set strm = CreateObject("ADODB.Stream") ... Accessing Exchange 2000 Data by Using ADO 2.5 6 Module 3: Accessing Exchange 2000 Data by Using ADO 2.5 Persisting a Recordset Exchange Exchange 20002000 ADO RecordsetSQL QuerySaveC:\AdminisContacts.xml ... strm2 = CreateObject("ADODB.Stream") strm2.Open rec, adModeRead, adOpenStreamFromRecord Module 3: Accessing Exchange 2000 Data by Using ADO 2.5 9 Creating, Copying, and Deleting...