Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open(MyPath, , True)
Set mysheet = MyWo.Worksheets(MyList)

Dim MyComp As SAPbobsCOM.Company
Dim MyOb As SAPbobsCOM.Items
Dim MyPrice As SAPbobsCOM.Items_Prices
Call XRekv(Sql_IP, Sql_Base, Sql_Login, Sql_Parol, Sbo_Login, Sbo_Parol)
Set MyComp = New SAPbobsCOM.Company
MyComp.Server = Sql_IP
MyComp.DbUserName = Sql_Login
MyComp.DbPassword = Sql_Parol
MyComp.UserName = Sbo_Login
MyComp.Password = Sbo_Parol
MyComp.CompanyDB = Sql_Base
MyComp.Connect 'mycomp.Connected вернёт true/false
    Set MyOb = MyComp.GetBusinessObject(oItems)