Problem in crystal logging

See more:

VB

CrystalReports

here's the code which i am using for crystal report generation through front end
all is going well but after clicking on refresh even after passing correct username and password it shows login failed

Dim cryRpt As New ReportDocument
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table

cryRpt.Load("C:\Documents and Settings\Administrator\Desktop\Sales_Analysis 020313.rpt")

With crConnectionInfo
.ServerName = "TESTVM"
.DatabaseName = "SGUJDT"
.UserID = "sa"
.Password = "admin-123"
End With

CrTables = cryRpt.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next

CrystalReportViewer1.ReportSource = cryRpt