Как программно разорвать или восстановить соединение через AxaptaCOMConnector?

[sschainik]

Как программно разорвать или восстановить соединение через AxaptaCOMConnector?

Пробовал сделать это сделать следующим путем
Private Sub Command1_Click()
Dim ax As AxaptaCOMConnector.Axapta2
Set ax = New AxaptaCOMConnector.Axapta2
Dim aa As Object
ax.Logon2 "login", "password", "", "", "", "", "C:\axapta\user.axc"
ax.Logoff
Set ax = Nothing
End Sub
код срабатывает только один раз. при повторном нажатии на кнопке появляется ошибка "Buffer overrun detected! ...."
собственно это нужно для программы работающей в фоновом режиме для отслеживания соединения и пытающейся восстановить его если соединение разорвано