Dim RptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        RptDocument.Load("c:Informe.rpt", CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)

        RptDocument.DataSourceConnections.Clear()

        Dim CTableLogInfo As CrystalDecisions.Shared.TableLogOnInfo
        Dim ConnInfo As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo()

        ConnInfo.Type = CrystalDecisions.Shared.ConnectionInfoType.CRQE
        ConnInfo.ServerName = String.Empty
        ConnInfo.DatabaseName = "c:dbConPasswrod.mdb"
        ConnInfo.UserID = "Admin"
        ConnInfo.Password = "5354"
        ConnInfo.AllowCustomConnection = False
        ConnInfo.IntegratedSecurity = False

        For Each CTable As CrystalDecisions.CrystalReports.Engine.Table In RptDocument.Database.Tables
            CTable.LogOnInfo.ConnectionInfo = ConnInfo
            CTableLogInfo = CTable.LogOnInfo
            CTableLogInfo.ReportName = "Informe.rpt"
            CTableLogInfo.TableName = CTable.Name
            CTable.ApplyLogOnInfo(CTableLogInfo)
        Next

        CrystalReportViewer1.ReportSource = RptDocument
        CrystalReportViewer1.RefreshReport()

RptDocument.DataSourceConnections.Item(0).SetLogon("admin", "xx")