2 selects i en select

Hej

Hvordan laves det i et hug / en select?

strSQL="SELECT KategoriID from PLUSPROFIL_KATEGORIER WHERE PLUSPROFIL_KATEGORIER.PlusprofilID = " & rs("ANNONCE_ID")
Set rs2=dataConn.Execute(strSQL)                                                            
if not rs2.eof then
  strSQL="SELECT ID, TITLE FROM LINKS_CATEGORIES WHERE ID = " & rs2("KategoriID")