Cannot Launch QuickBooks from QuickBooks SDK using MS Access VBA on Win  XP

I am running on Win XP in MS Access 2003 VBA using QuickBooks SDK 7.0 and QuickBooks Premier Edition 2008.

OpenConnection2 does not open Quickbooks.  I execute the attached code.

QB does not open and BeginSession fails with error -2147220472  "Could not start QuickBooks. "

How do I diagnose and fix this problem?Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Public Sub SetupQBSession()
 
    Dim sessionManager As QBSessionManager
    
    Set sessionManager = New QBSessionManager
    sessionManager.OpenConnection2 "", "Update from Test App", ctLocalQBDLaunchUI
    sessionManager.BeginSession "", omDontCare
  
    Exit Sub
End Sub