Søg i flere tabeller

Halløj

Jeg bruger et søgescript svarende til nedenstående. Men jeg vil gerne udvide det så det kan søge i 6 tabeller.

Tabellerne har ens udseende bortset fra første kolonne som er unik.

Tabellerne hedder:

"Beskrivelse" Unik kolonne: BeskrivelseID
"Grafik" Unik kolonne: GrafikID
"Loesninger" Unik kolonne: LoesningerID
"Nyheder" Unik kolonne: NyhederID
"Referencer" Unik kolonne: ReferencerID
"Udvikling" Unik kolonne: UdviklingID

Hvordan får jeg søgt i alle tabeller og trukket en reference ud så der kan linkes til resultatet?

Koden der skal tilpasses er:

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("johansen.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

  strSearch = Trim(Request.Form("Search"))
 
  SQL = "SELECT * FROM [Search] WHERE [Search].[Overskrift] LIKE '%" & strSearch & "%' OR [Search].[Teaser] LIKE '%" & strSearch & "%' OR [Search].[Produktbeskrivelse] LIKE '%" & strSearch & "%' ORDER BY [Search].[Overskrift]"
 
      set Result = myConn.Execute(SQL)
 
  if request.form("search") = "" then
  response.write "<table width=300 border=0 cellpadding=4 cellspacing=0><tr><td><i><span class=subheader>Du har ikke skrevet et søgeord</i><br><hr width=180 noshade size=3 align=left color=#573957></SPAN></td></tr></table>"
 
  else
   
  if Result.Eof then
    Response.Write "<table width=300 border=0 cellpadding=4 cellspacing=0><tr><td><i><span class=subheader>Din søgning gav desværre intet resultat</i><br><hr width=228 noshade size=3 align=left color=#573957></SPAN></td></tr></table>"
  else
    Response.Write "<table width=300 border=0 cellpadding=4 cellspacing=0><tr><td><i><span class=subheader>Søgning på Johansen Design resulterede i:</i><br><hr width=240 noshade size=3 align=left color=#573957></SPAN></td></tr></table>"
    do while not Result.Eof

      Response.Write "<table border=""0"" width=""300"">"
      Response.Write "<tr><td width=""300"">" & "<span class=subheader>" & Result("Overskrift") & "</SPAN></td></tr>"
      Response.Write "<tr><td width=""300"">" & "<span class=text>" & Result("Teaser") & "</SPAN></td></tr>"
      Response.Write "<tr><td width=""300"">" & "<span class=text><a href=artikel.asp?ID=" & Result("ID") & ">" & "Læs side" & " <img src=images/link_arrow.jpg border=0>" & "</a>" & "</SPAN><br><br></td></tr></table>"
   
      Result.Movenext
     
  loop
  end if
    end if
%>

Kun en fuldstændig kode giver points.