Set adcon = New ADODB.Connection
adcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;Persist Security Info=False"
strSql="Select * From(" _
&" Select * From A " _
&" Union All" _
& " Select * From B " _
&" Union All" _
& " Select * From C " _
&" Union All" _
& " Select * From D"
& ")T" _
&" Where ((X-xx)^2+(Y-yy)^2)<1000 "
Set adcon = New ADODB.Connection
adcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;Persist Security Info=False"
strSql="Select * From A Where ((X-xx)^2+(Y-yy)^2)<1000 " _
&" Union All" _
& " Select * From B Where ((X-xx)^2+(Y-yy)^2)<1000 " _
&" Union All" _
& " Select * From C Where ((X-xx)^2+(Y-yy)^2)<1000 " _
&" Union All" _
& " Select * From D Where ((X-xx)^2+(Y-yy)^2)<1000 "