Dynamisk sql-sætning

Jeg skal bruge følgende sqlsætning i en løkke, og vil derfor gerne have lavet så de tilhørende recordsets kommer til at hedde det samme navn plus "strID". Altså til "topics" skal linien se således ud: set RStopics(værdien af strID) = DB.Execute(SQL)

dim strID
strID = RSforum("ID")               

SQL ="SELECT COUNT(*) as topics FROM topics WHERE fora =" & strID                       

SQL ="SELECT COUNT(*) as messages FROM messages WHERE fora =" & strID