Optimere sql-kode

Hej alle

Hvordan kan denne kode optimeres, herunder lægges sammen i en sql-sætning?

strSQL = "SELECT FORUM_FORUM.FORUM_ID FROM FORUM_FORUM INNER JOIN FORUM_CATEGORY ON FORUM_FORUM.CAT_ID = FORUM_CATEGORY.CAT_ID INNER JOIN FORUM_GROUPS ON FORUM_CATEGORY.CAT_ID = FORUM_GROUPS.GROUP_CATID WHERE FORUM_GROUPS.GROUP_ID = 4"
set rs = my_Conn.Execute(strSql)   
  while not (rs.eof or rs.bof)
  strSQL = "INSERT INTO " & strTablePrefix & "MODERATOR (FORUM_ID, MEMBER_ID) VALUES(" & RS("FORUM_ID") & ", " & cLng(Request.Form("MEMBER_ID")) & ")"
  my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
  rs.movenext
wend
set rs = nothing