Pull CMS R18 Report with VB 6.0

[fsyaro]

Hi All,

I need to pull real-time report from CMS R18 and I use code below :

Private Function CMSConnect()
    Dim state As Boolean
    On Error Resume Next
    
	If (cvsApp.CreateServer(Username, Password, "", Server, False, "ENU", cvsSrv, cvsConn)) Then
		If cvsConn.Login(Username, Password, Server, "ENU", "", False) Then
			MsgBox "Login success!"
			HasLogin = True
			state = True
		Else
			state = False
			mnReconnect.Enabled = False
			mnExit.Enabled = False
			Error.lblMessage.Caption = "Cannot connect to CMS server!"
			Error.Show
		End If
	Else
		state = False
		mnReconnect.Enabled = False
		mnExit.Enabled = False
		Error.lblMessage.Caption = "Cannot connect to CMS server!"
		Error.Show
	End If
    
End Function

return of this line

If cvsConn.Login(Username, Password, Server, "ENU", "", False) Then

is always false on R18, but previuosly on R17 this code work.

Please help.

[fsyaro]

Hi! anyone can help me? pleasee