Sorguda 255 karakter sorunu

[SadiSerdari]

Arkadaşlar yazdığım kod office 2003 için. SQL sorugusu 255 karakterden fazla olduğu için çalıştıramıyorum. Bu konuda yardımlarınız bekliyorum. Teşekkürler.

Public Function SQLStr3(ByVal HsKod1 As String, ByVal HsKod2 As String, ByVal Ay1 As String, ByVal Ay2 As String) As String
    
    SQLStr3 = "SELECT A.HESAP_KODU,A.HS_ADI,BAKIYE=SUM(CASE WHEN B.BA='1' THEN B.TUTAR ELSE 0 END) " _
    & "FROM TBLPLAN A INNER JOIN TBLFIS B ON (A.HESAP_KODU=B.HES_KOD) " _
    & "WHERE A.HESAP_KODU BETWEEN '" & HsKod1 & "' AND '" & HsKod2 & "' AND B.AY_KODU BETWEEN '" & Ay1 & "' AND '" & Ay2 & "' " _
    & "GROUP BY A.HESAP_KODU,A.HS_ADI " _
    & "ORDER BY HESAP_KODU ASC"

End Function