Ciao,

è possibile una cosa del genere:
codice:
Select case aa
   case 1
      StrSql = "select1 ....."
   case 2
      StrSql = "select2 ....."
End select


apro db...
apro RS...
   strSql 
chiudo RS...
chiudo db...