Значит во-первых... Это не XML файл...
И во-вторых... Это синтаксис T-SQL, а не VB...
Dim rs as ADODB.Recordset
Set rs=New ADODB.Recordset
rs.CursorLocation=adUseClient
rs.Open App.Path & "\TableCity.xml", "Provider=MSPersist;"
rs.Filter="Field1>100"
Set DataGrid1.DataSource=rs
Сейчас этот форум просматривают: SemrushBot и гости: 88