How to get chase bank/jp morgan bank account transaction

my code is working fine for wells fargo bank i  get account details for that but  i couldn't  get the  details for chase bank/ jp morgen bank

i use that code

_Public Sub New(ByVal ofx_RequestType As RequestType, ByVal userName As String, ByVal password As String, ByVal AccountID As String, ByVal BankID As String, ByVal org As String, ByVal FID As String)

        _UserName = userName
        _Password = password
        CurrGuid = Guid.NewGuid.ToString
        Dim clientDate As String
        clientDate = Format(DateTime.Now, "yyyyMMddHHmmss")

        DataBuffer.AppendLine("OFXHEADER:100")
        DataBuffer.AppendLine("DATA:OFXSGML")
        DataBuffer.AppendLine("VERSION:102")
        DataBuffer.AppendLine("SECURITY:NONE")
        DataBuffer.AppendLine("ENCODING:USASCII")
        DataBuffer.AppendLine("CHARSET:1252")
        DataBuffer.AppendLine("COMPRESSION:NONE")
        DataBuffer.AppendLine("OLDFILEUID:NONE")
        DataBuffer.AppendLine("NEWFILEUID:NONE")
        DataBuffer.AppendLine()
        DataBuffer.AppendLine("<OFX>")
        DataBuffer.AppendLine("<SIGNONMSGSRQV1>")
        DataBuffer.AppendLine("<SONRQ>")
        DataBuffer.AppendLine("<DTCLIENT>" + clientDate)
        DataBuffer.AppendLine("<USERID>" + userName)
        DataBuffer.AppendLine("<USERPASS>" + password)
        DataBuffer.AppendLine("<LANGUAGE>ENG")
        DataBuffer.AppendLine("<FI>")
        DataBuffer.AppendLine("<ORG>" + org)
        DataBuffer.AppendLine("<FID>" + FID)
        DataBuffer.AppendLine("</FI>")
        DataBuffer.AppendLine("<APPID>QBW")
        DataBuffer.AppendLine("<APPVER>2100")
        DataBuffer.AppendLine("</SONRQ>")
        DataBuffer.AppendLine("</SIGNONMSGSRQV1>")

        Dim test As Integer
        test = 4
        Select Case ofx_RequestType
            Case RequestType.AccountList
                DataBuffer.AppendLine("<SIGNUPMSGSRQV1>")
                DataBuffer.AppendLine("<ACCTINFOTRNRQ>")
                DataBuffer.AppendLine("<ACCTINFORQ>")
                DataBuffer.AppendLine("<DTACCTUP>19700101")
                DataBuffer.AppendLine("</ACCTINFORQ>")
                DataBuffer.AppendLine("</ACCTINFOTRNRQ>")
                DataBuffer.AppendLine("</SIGNUPMSGSRQV1>")
                DataBuffer.AppendLine("</OFX>")
            Case RequestType.AccountActivity
                DataBuffer.Append("<BANKMSGSRQV1>")
                DataBuffer.Append("<STMTTRNRQ>")
                DataBuffer.Append("<TRNUID>" + CurrGuid)
                DataBuffer.Append("<STMTRQ>")
                DataBuffer.Append("<BANKACCTFROM>")
                DataBuffer.Append("<BANKID>" + BankID)
                DataBuffer.Append("<ACCTID>" + AccountID)
                DataBuffer.Append("<ACCTTYPE>CHECKING")
                DataBuffer.Append("</BANKACCTFROM>")
                DataBuffer.Append("<INCTRAN>")
                DataBuffer.Append("<INCLUDE>Y")
                DataBuffer.Append("</INCTRAN>")
                DataBuffer.Append("</STMTRQ>")
                DataBuffer.Append("</STMTTRNRQ>")
                DataBuffer.Append("</BANKMSGSRQV1>")
                DataBuffer.Append("</OFX>")

                'later
        End Select

    End Sub

and pass url:

  URL = "https://www.oasis.cfree.com/1601.ofxgp "

  FID = "1601"

  BankId = <my routing #>

  Org = "Chase Bank"

Accno="<my accountNo>"

but it gives me error

The remote server returned an error: (400) Bad Request.

please help me to solve this issue