It's a typo in runQuery():
VB Code:
  1. strSQL = "SELECT Authors.Author, Titles.Title, "

  2.    strSQL = strSQL & "titles.ISBN, "

  3.     strSQL = strSQL & "Titles.[year published], Publishers.name "

  4.    strSQL = strSQL & "From (publishers inner join titles on "

  5.     strSQL = strSQL & "publishers.PubID = "

  6.    strSQL = strSQL & "Titles.PubID) "

  7.    strSQL = strSQL & "INNER JOIN "

  8.    strSQL = strSQL & "(Authors INNER JOIN [Title Author] ON "

  9.    strSQL = strSQL & "Authors.au_ID = [Title Author].Au[COLOR=Red]_[/COLOR]ID) on "     '<---- ON THIS LINE

  10.    strSQL = strSQL & "Titles.ISBN = [Title Author].ISBN WHERE "

  11.    strSQL = strSQL & "publishers.pubID = " & selectedpubid

  12.    strSQL = strSQL & " ORDER by Authors.Author"