gistfile1.txt

sSQLL= "SELECT ""Название"" , ""ID"" FROM ""Вид соревнований"" "
sSQL= "SELECT ""Место"" , ""Страна"" , ""Вид соревнований"" FROM ""Ведомость"" "

oRes=oStatement.executeQuery(sSQLL)
oResult=oStatement1.executeQuery(sSQL)


Do While oResult.next()
Do While oRes.next()

		if (oResult.getstring(3) = oRes.getstring(2)) and (oResult.getstring(2)="Россия") and (oResult.getstring(1)<=3) and (oRes.getstring(1)="Чемпионат Европы") then
			i=i+1   
		End If

Loop
Loop