Private Sub cmdConnect_Click()
    Dim l_objConnection As New ADODB.Connection
    Dim l_objXMLDoc   As New DOMDocument

    l_objConnection.Open "Driver=Microsoft Visual FoxPro Driver;Server=;UID=;PWD=;SourceType=DBC;Exclusive=No;" & _
                         "SourceDB=D:\base.dbc;"
                         
                         
    If l_objConnection.State =  1  Then
                
        l_objXMLDoc.Load "D:\test.xml"
    
        If (l_objXMLDoc.parseError.errorCode <>  0 ) Then
            GoTo LABEL_ERROR_HANDLER
        End If
        
        Dim l_XMLRootNode As IXMLDOMElement
        
        Set l_XMLRootNode = l_objXMLDoc.selectSingleNode("package")
        If (l_XMLRootNode Is Nothing) Then
            GoTo LABEL_ERROR_HANDLER
        End If
        
       
        Dim l_objRst As New ADODB.Recordset
        l_objRst.Open "SELECT * FROM temp", l_objConnection, adOpenStatic, adLockOptimistic
        
        If (l_objRst.State = adStateOpen) Then
                    
            Dim l_XMLRecNode   As IXMLDOMElement
            Dim l_XMLAttribute As IXMLDOMAttribute

            l_objConnection.BeginTrans

            For Each l_XMLRecNode In l_XMLRootNode.childNodes
                
                l_objRst.AddNew
            
                For Each l_XMLAttribute In l_XMLRecNode.Attributes
                    l_objRst.Fields(l_XMLAttribute.Name).Value = l_XMLAttribute.Value
                Next
                
                l_objRst.Update
                
            Next
            
            l_objConnection.CommitTrans
            l_objRst.Close
        End If
     
        Set l_objRst = Nothing

    End If
 
LABEL_ERROR_HANDLER:
    Set l_objXMLDoc = Nothing
    Set l_objConnection = Nothing

End Sub

FUNCTION MainTrigger

  IF(USED(nastr_table)) THEN
   * значит из Fox'а, а не из ADO
  ENDIF
  
  RETURN .T.

ENDFUNC

IF(USED('nastr_table')) THEN
ENDIF

IF(USED('cur_nastr_')) THEN
 * работаем из Fox'а
ELSE
 * работаем из ADO
ENDIF