Connecting to the DI from MS Excel

Question

This code snippet works fine from vb.net, however, I can't get a connection from Excel.  I added a reference to SAPbobsCOM.  Everything is fine up until I call .connect.
Sub MyMacro()
    Dim vCompany As SAPbobsCOM.Company
    Set vCompany = New SAPbobsCOM.Company
    'set parameters for connection
    vCompany.CompanyDB = "MyCompany"
    vCompany.Password = "MyPassword"
    vCompany.UserName = "MyUsername"
    vCompany.Server = "MyServer"
    vCompany.UseTrusted = False
    vCompany.DbUserName = "MyDBUsername"
    vCompany.DbPassword = "MyDBPassword"
    vCompany.Connect
    If vCompany.Connect <> 0 Then
        MsgBox "Failed to connect"
            Exit Sub
    End If
End Sub
Any ideas?
TIA

Answer 1

Avi - thans for the response. The .connect method of the company object looks like it returns a Long. 
In my case, it's returning a -116 which means I am not connecting. 
Company.Connect Method Syntax
Public Function Connect() As Long
Returns
Returns a result value that indicates success or failure. If the method succeeds, it returns 0. Otherwise, it returns an error code.
You can retrieve the last error code and its description using the method GetLastError
If I call GetLastError, it returns a 0 indicating a no error condition.
Does anyone have a working VBA macro for excel that includes the connection? 
All I did to prep was add a reference to the DI.  Do I have to reference any other objects?  I can run SQL queries from Excel in the standard manner.
Thanks in advance!