SQL 片方のTableのみにある行を抽出(LEFT JOIN)

strSQL = ""
strSQL = strSQL & " SELECT"
strSQL = strSQL & " tb1.商品ID AS 商品ID"
strSQL = strSQL & " ,tb1.商品管理番号 AS 商品管理番号"
strSQL = strSQL & " ,tb1.コントロール AS コントロール"
strSQL = strSQL & " ,tb1.公開ステータス AS 公開ステータス"
strSQL = strSQL & " ,tb1.単価 AS 単価"
strSQL = strSQL & " ,tb1.[参考価格/通常出品価格] AS [参考価格/通常出品価格]"
strSQL = strSQL & " ,tb1.参考価格 AS 参考価格"
strSQL = strSQL & " FROM"
strSQL = strSQL & " T_価格変更_BUYMA出品中_インポート AS tb1"
strSQL = strSQL & " LEFT OUTER JOIN"
strSQL = strSQL & " T_価格変更_タイムセール中_インポート AS tb2"
strSQL = strSQL & " ON"
strSQL = strSQL & " tb1.商品ID = tb2.商品ID"
strSQL = strSQL & " WHERE"
strSQL = strSQL & " tb2.商品ID is null"
strSQL = strSQL & " ;"

rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic