Replacing the rs with an append query gets rid of the rs entirely and shaves a bit more additional time off Vlad's vast improvement.
Code:
For Each node In TitleNodes
mo = node.getAttribute("class")
If mo = "RETU_R" Then
DN_Name = node.getAttribute("distName")
sSql = "Insert Into RETU_R (DN_Name, Class, CreateDate) Values ('" & DN_Name & "', " & """ & RETU_R & """ & ",#" & Now & "#)"
'Debug.Print sSql
db.Execute sSql, dbFailOnError
sSql = ""
For Each par In node.childNodes
If par.baseName = "p" Then
p_name = par.getAttribute("name")
p_value = par.Text
End If