Ошибка при пработе с Axapta Business Connection

[ATimTim]

Причем, в VB работает без проблем

PHP код:

Private Sub CommandButton1_Click()
  Dim Axapta           As AxaptaCOMConnector.Axapta2
  
  Dim AxaptaQuery      As AxaptaCOMConnector.IAxaptaObject
  Dim AxaptaDataSource As AxaptaCOMConnector.IAxaptaObject
  Dim AxaptaQueryRun   As AxaptaCOMConnector.IAxaptaObject
  Dim CustTableBuffer  As AxaptaCOMConnector.IAxaptaRecord
  
  
  Set Axapta = New AxaptaCOMConnector.Axapta2
  
  Axapta.Logon2 "COM", "1111", "", "", "", "", ""

  Set AxaptaQuery = Axapta.CreateObject("Query")
  Set AxaptaDataSource = AxaptaQuery.Call("addDataSource", 77)

  Set AxaptaQueryRun = Axapta.CreateObject("QueryRun", AxaptaQuery)
  
  i = 1
  While AxaptaQueryRun.Call("Next")
    If AxaptaQueryRun.Call("Changed", 77) Then
      Set CustTableBuffer = AxaptaQueryRun.Call("GetNo", 1)
      Worksheets(1).Cells(i, 1).Value = CustTableBuffer.field("name")
      i = i + 1
    End If
  Wend

End Sub