Private Sub Form_Load()
    Dim rs
    Dim xDoc
    Dim xNodeList
    Dim xNode
    Dim s, xpath
    '
    s = "select id, '' as txt, 0 as val from T"
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open s, CurrentProject.Connection
    
    Set xDoc = CreateObject("MSXML2.DOMDocument")
    rs.Save xDoc, adPersistXML
    rs.Close
    
    xpath = "/xml/s:Schema/s:ElementType/s:AttributeType"
    Set xNodeList = xDoc.documentElement.selectNodes(xpath)
    For Each xNode In xNodeList
        xNode.setAttribute "rs:writeunknown", "true"
    Next
    
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open xDoc, , adOpenStatic, adLockBatchOptimistic
    
    Set Me.Recordset = rs
    
    Set xDoc = Nothing
    Set rs = Nothing
End Sub