Dim mySQL as String
Dim myRST as ADODB.Recordset
Dim myXML as String
mySQL = "SELECT xmlstring FROM yourtable"
Set myRST = New ADODB.Recordset
myRST.Open mySQL, CurrentProject.Connection
Do While Not myRST.EOF
'get xml field from your table/query
myXML = fields("xmlstring")
'here you need to decide what you're doing with it
'DoCmd.OutputTo is an option with a bit of work
myRST.MoveNext
Loop
myRST.Close
Set myRST = Nothing
|