Olá Pessoal, tenho um projeto em VB6 com banco de dados Oracle 10g xe, e estou utilizando o crystal 10 para os relatórios. Montei os relatórios com o datasource 127.0.0.1 (banco local na maquina) porém gostaria de saber como posso alterar esse datasource em tempo de execução, ou seja, para o relatorio acessar a base em uma outra maquina diferente da que esta o banco? quando eu tento acessar o relatorio tenta buscar os dados no ip 127.0.0.1, mesmo eu ja tendo feito o login no ip correto.

Abaixo segue o codigo que estou utilizando:

 

Function Carrega_Relatorio(Relatorio As String, script As String, ParametroNome01 As String, ParametroValor01 As String)
      Set CRReport = CRAplication.OpenReport(Relatorio)
      CRReport.Database.LogOnServer "ORACLE", BancoEnd, "NEWLIFE", "NEWLIFE", "MT257913"
      CRReport.PrinterSetup (0)
      If script <> "" Then CRReport.SQLQueryString = script
      CRReport.DiscardSavedData
      If ParametroNome01 <> "" Then CRReport.ParameterFields.GetItemByName(ParametroNome01).AddCurrentValue ParametroValor01
      CrystalActiveXReportViewer1.ReportSource = CRReport
      CrystalActiveXReportViewer1.ViewReport
      While CrystalActiveXReportViewer1.IsBusy
             DoEvents
      Wend
End Function