Cannot open SQL SERVER ERROR no 20599

How to solve run time error while printing crystal report 8.5 using VB 6.0 and sQL 2005 (It run In Windows2000 Environment but not in Window XP)
my report using Subreport

I am using Code like

reportcr.SubreportToChange = “experience1”

m_LognoInfo = reportcr.RetrieveLogonInfo

For i = 1 To m_LognoInfo – 1
If Len(reportcr.LogonInfo(i)) > 0 Then
reportcr.LogonInfo(i) = “dsn=” & strServerName & “;dsq=” & rptsdbname & “;uid=” & strUserName & “;pwd=” & strUserPass & “;”
End If
Next
reportcr.LogOnServer “pdssql.dll”, strServerName, rptsdbname, strUserName, strUserPass