Sub test_()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=MSDAOSP; Data Source=MSXML2.DSOControl;"
rst.Open CurrentProject.Path & "\AS_ADDRESS_OBJECTS_20200629_3db5eab2-df55-4bf3-9f87-8ec52df85da6.xml", cnn
'
Debug.Print rst.RecordCount
Debug.Print rst.GetString(ColumnDelimeter:=vbTab, RowDelimeter:=vbCrLf)

'Stop
rst.Close
cnn.Close

Set rst = Nothing
Set cnn = Nothing
End Sub