Dim con1
	Dim con2
	Set con1 = Server.CreateObject("ADODB.Connection")
	Set con2 = Server.CreateObject("ADODB.Connection")
	Dim db1
	Dim db2
	db1 = Server.MapPath("db1.mdb")
	db2 = Server.MapPath("db2.mdb")
	con1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db1
	con2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db2
	Dim r ' Переменная рекордсета
	Dim q
	q = "SELECT Table1.Field1, Table2.Field2 FROM db1.mdb.Table1 LEFT JOIN db2.mdb.Table2 ON Table1.Field1 = Table2.Field1",
	' Но как открыть рекордсет r?