Conexão x Crystal no VB6 (rpt)

[Cassio.hc 0]

Dae.Alguem pode me dar uma mão nesse código?PReciso conectar o crystal com o banco em tempo de execução... Function AbrirReport(strCaminho As String, strRel As String, strCriterio As String) Dim crxApp As New CRAXDRT.ApplicationDim crxReport As New CRAXDRT.ReportDim crxDatabaseTable As CRAXDRT.DatabaseTable'Set crxApp = New CRAXDRT.Application'//Abre o relatório indicadoSet crxReport = crxApp.OpenReport(strCaminho & strRel)With crxReport'//Seta todas as Tabelas do Relatório para o caminho do banco de dadosFor Each crxDatabaseTable In .database.Tables.database.LogOnServer "pdsmon.dll", "NOMESERVER.", NOMEBASE", "sa", "SENHA" 'AQUI TA RETORNANDO O ERRO "LOGIN FAILED" Next crxDatabaseTablestrCriterio ="".RecordSelectionFormula = strCriterio'//Descarta os dados.DiscardSavedData'//Verifica se a definição do banco foi alterada e atualiza no report'.ReadRecords.database.VerifyEnd With'//Carrega o form com o obejto Crystal Report Viewer (nomeado de crvPrinc)Load Frm_ApresentaRelWith Frm_ApresentaRel.CRViewer.ReportSource = crxReport.CRViewer.ViewReport'//Exibe o report.ShowEnd With'//Fecha os objetosSet crxReport = NothingSet crxApp = NothingEnd Functionvlw pela força.

[Invasor 0]

Olá você fez as devidas referências?Qual o erro q este código te fornece?