Smartview for Excel

[charlee63]

I am trying to set up a file to auto log into Hypersion.
Declare Function HypConnect Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtFriendlyName As Variant) As Long
Declare Function HypCreateConnection Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtProvider As Variant, ByVal vtProviderURL As Variant, ByVal vtServerName As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabaseName As Variant, ByVal vtFriendlyName As Variant, ByVal vtDescription As Variant) As Long
Sub Example_HypCreateConnection()
Username = "cjames"
Password = "Wilder0718"
Provider = "HYP_ESSBASE"
QAProvURL = "http://optaixapphyp02pr:19000/aps/SmartView"
QAServer = "EssbaseCluster-1"
AppName = "item"
DBName = "itmsales"
QACommonName = "My Connection"
QADescription = "Analylic Provider Services"
X = HypConnect(Empty, Username, Password, QACommonName)
Y = HypCreateConnection(Empty, Username, Password, Provider, QAProvURL, QAServer, AppName, DBName, QACommonName, QADescription)
End Sub

Getting this error
Cannot connect to Essbase Server. Error:Essbase Error(1042003):
Network Error [11001]: Faliled to retrieve name intormation for [optaoxappyp02pr]
Do you want to connect with username/password?

If I log on manuelly to connect to Data Source says
Server - EssbaseCluster-1
Applilcation - item
cube - itmsales
URL - http;//optaixapphyp02pr:19000/aps/SmartView
Provider - Analytic Provider Services


What is wrong with my program?