刚才写错了 此时JournalName 为Women's International Network News
JournalName1=rs2("JournalName")
JournalName1=replace(JournalName1,"'","""")
JournalName=replace(JournalName,"'","""")
sql="select Subject1,Subject2 from JournalName where JournalName= '"&JournalName1&"'"
JournalName1=rs2("JournalName")
JournalName1=replace(JournalName1,"'","""")
JournalName=replace(JournalName,"'","""")
sql="select Subject1,Subject2 from Journals where JournalName= '"&JournalName1&"'"