' Open connection to qbXMLRP COM
		Dim qbXMLRP As New QBXMLRP2Lib.RequestProcessor2
		Dim connType As QBXMLRP2Lib.QBXMLRPConnectionType
		connType = QBXMLRP2Lib.QBXMLRPConnectionType.localQBD