Problem med Join (Objekt krävs)

Försöker lära mig Join men än så länge går det inte alltför bra då jag får felet Objekt krävs.: 'ForumTrad' på nedanstående kod.

' ## Öppnar databasen
Dim Connect, RecSet, SQL, str
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=NrUQg4H;Data Source=" & Server.MapPath( str & "\pågående projekt\DotStyle\data\data.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset") 

' ## Hämtar ur databasen
Set RecSet = Server.CreateObject("ADODB.Recordset")	
[B]SQL = "SELECT ForumTrad.ForumTradID, Anv.AnvNamn" & _[/B]
  "FROM ForumTrad INNER JOIN Anv ON ForumTrad.AnvID = Anv.AnvID " & _ 
  "WHERE ForumTradID = " & ForumTrad.ForumTradID & " AND ForumTrad.SidId = " & Session("SidID") & " " & _ 
  "UNION ALL SELECT ForumInl.ForumInlID, Anv.AnvNamn " & _ 
  "FROM ForumInl INNER JOIN Anv ON ForumInl.AnvID = Anv.AnvID " & _
  "WHERE ForumTradID = " & ForumInl.ForumTradID & " AND ForumInl.SidId = " & Session("SidID")
RecSet.Open SQL, Connect, 3, 3

[...] Sparar i array [...]

'## Stänger databasen
RecSet.Close 
Set RecSet = Nothing 
Connect.Close 
Set Connect = Nothing

Raden där felet pekar på är markerat med fetstil.
Databasen är ju öppnad och fungerar om man kör utan Join, men inte nu. Någon som vet varför?