используйте этот метод для вызова ax в vb;
Частичный открытый класс ValueReport
<DataMethod(), AxSessionPermission(SecurityAction.Assert)> Public Shared Function CompanyInfo() As DataTable
Dim dtCompany As New DataTable
Try
Dim record As AxaptaRecordWrapper = SessionManager.GetSession().CreateAxaptaRecord("CompanyInfo")
record.ExecuteStmt("select * from %1")
dtCompany.Columns.Add("CompanyName", System.Type.GetType("System.String"))
dtCompany.Columns.Add("CompanyAddress", System.Type.GetType("System.String"))
While (record.Found)
Dim drCompany As DataRow = dtCompany.NewRow
drCompany("CompanyName") = record.GetField("Name")
drCompany("CompanyAddress") = record.GetField("Address")
dtCompany.Rows.Add(drCompany)
record.Next()
End While
Return dtCompany
Catch ex As Exception
Throw ex
End Try
End Function