Chamando em VB6 - Urgente por favor

[thiefsandor]

Olá pessoal do Fórum, por favor, preciso de uma ajuda de vocês.

Preciso fazer isso funcionar o mais rápido possível pois estou fazendo prova...rsrs

Se alguém puder me ajudar ficarei muitissimo grato.

Fiz tudo, tah beleza, coisa e tal

Maaaas quando clico no botão de Gerar o Relatorio aparece o seguinte erro:

---------------------------

Crystal Report Viewer

---------------------------

Falha ao abrir a conexão.

Detalhes: 42000:[Microsoft][ODBC SQL Server Driver]

[SQL Server]Cannot open database "Cliente" requested by the login. The login failed. [Código do Fornecedor de Banco de Dados: 4060 ]
---------------------------
OK
---------------------------

por favor pessoal alguém me ajuda, eu já fiz tudo e não vai pra lugar nenhum =(
esse é o codigo que estou usando no Form que está recebendo o componente do Crystal para gerar o relatorio:

Dim Report As New CR1

Private Sub Form_Load()
Dim lngCont As Long
Dim strDsnEmpresa As String
Dim strUser As String
Dim strPwd As String

strDsnEmpresa = "SYM_TesteVb5" 'Atribua o nome da DSN
strUser = "sa" 'Atribua o nome do usuário
strPwd = "dp" 'Atribua a senha

Screen.MousePointer = vbHourglass
For lngCont = 1 To Report.Database.Tables.Count
    Report.Database.Tables(lngCont).SetLogOnInfo strDsnEmpresa, Report.Database.Tables.Item(lngCont).Name, strUser, strPwd
Next
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Aguardo alguma ajuda, por enquanto muito obrigado

Editado Fevereiro 3, 2011 por kuroi
Adicionar tag CODE