Такая вот штуковина...
Dim Base As New ADODB.Connection
Dim RS1 As ADODB.Recordset, RS2 as ADODB.Recordset
Base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=base.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
SQL1="SELECT ..."
SQL2="SELECT ..."
Set rs1 = Base.Execute(SQL1)
Set rs2 = Base.Execute(SQL2)
Один из RS - ОБЯЗАТЕЛЬНО будет пустой, другой ОБЯЗАТЕЛЬНО будет содержать одну запись.
Задача определить непустой.
Первое что приходит в голову это сравнить RS1.recordcount и RS2.recordcount. Удивительно, но оба эти значения получаются = -1 (?).
Причем если зайти с другого конца и сравнить RS1.EOF и RS2.EOF то пустой сразу кричит TRUE (как и положено), а непустой FALSE соответственно.
Т.е. задача с принципе решается, а все равно интересно, что там с recordcount происходит?