VBからBAPIの実行について

初めまして、seiziと申します。

R/3 Enterpriseを利用しており、現在はVB6.0よりBAPIを使ってアクセスする技術について勉強しています。

下記ロジックにてBAPI-APAccountを利用して、データを取得したいと考えていますがエラーが表示されてしまい、うまくデータを取得できません。おそらくパラメータの指定方法がまずいとは思い、試行錯誤したのですがエラーとなってしまいます。
どなたか原因が分かる方はアドバイスをお願いします。


エラー=====================
実行時エラー'8818'
The persistent key for an business object instance of type APAccount has not been set.
Cannot invoke method GETPERIODBALANCES

ロジック====================
Dim R3 As Object
Dim objRequisitions As Object
Dim objCreditorBalances As Object
Dim objCredSpecialBalances As Object
Dim objReturn As Object

' 接続のパラメータ入力
'Set R3 = CreateObject("SAP.BAPI.1")
'R3.Connection.Applicationserver = "XXX.XXX.XXX.XXX"
'R3.Connection.Client = "XXX"
'R3.Connection.User = "XXXXXX"
R3.Connection.Password = "XXXXX"
'R3.Connection.language = "JA"

' ログイン実行
If R3.Connection.logon(0, True) <> True Then
MsgBox "R/3 ログインに失敗しました"
Exit Function
End If

Set objRequisitions = R3.GetSAPObject("APAccount")

Set objCreditorBalances = R3.DimAs(objRequisitions, "GetPeriodBalances", "CreditorBalances")
Set objCredSpecialBalances = R3.DimAs(objRequisitions, "GetPeriodBalances", "CredSpecialBalances")


With objCreditorBalances
.Rows.Add
.Value(1, "VENDOR") = "VB34021200"
.Value(1, "COMP_CODE") = "1000"
End With

With objCredSpecialBalances
.Rows.Add
.Value(1, "VENDOR") = "VB34021200"
.Value(1, "COMP_CODE") = "1000"
End With

'BAPIの実行
objRequisitions.GetPeriodBalances　CreditorBalances:=objCreditorBalances,　CredSpecialBalances:=objCredSpecialBalances
'↑
'ここでエラーとなります。