Microsoft Access 掲示板

構文エラーですね。
コードを下記に修正してみてください。

    Dim cn As New ADODB.Connection
    Dim rs_sub_total As New ADODB.Recordset
    Dim Num As String

    cn.Open 省略
    rs_sub_total.CursorLocation = adUseClient
    rs_sub_total.Open "TRANSFORM SUM(請求単価) AS クロス請求金額 " & _
                     "SELECT 消費税率, SUM(請求単価) AS 請求金額 " & _
                     "FROM tbl請求合算Sub " & _
                     "WHERE 合算請求書番号 = '" & Num & "' AND 消費税率 IS NOT NULL " & _
                     "GROUP BY 消費税率 " & _
                     "ORDER BY 消費税率 " & _
                     "PIVOT 合算請求書特殊行;", _
                     cn, adOpenKeyset, adLockOptimistic

１つのコマンド文を改行して記述するときは、行末に 「 _」 (半角スペース+アンダーバー)が必要です。
あと、変数名も途中から間違ってますね。