将XML作为DOM物件引入recordset

Dim Rs As ADODB.Recordset
Dim xml As MSXML2.DOMDocument60

Private Sub Command1_Click()
Commd.ShowOpen
If Commd.FileName <> "" Then
txtFile.Text = Commd.FileName
Set xml = New MSXML2.DOMDocument60
Set Rs = New ADODB.Recordset
xml.Load txtFile.Text
End If
End Sub