Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button1.Click

        Dim cryRpt As New ReportDocument

        Dim crtableLogoninfos As New TableLogOnInfos

        Dim crtableLogoninfo As New TableLogOnInfo

        Dim crConnectionInfo As New ConnectionInfo

        Dim CrTables As Tables

        Dim CrTable As Table



        cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")



        With crConnectionInfo

            .ServerName = "YOUR SERVER NAME"

            .DatabaseName = "YOUR DATABASE NAME"

            .UserID = "YOUR DATABASE USERNAME"

            .Password = "YOUR DATABASE PASSWORD"

        End With



        CrTables = cryRpt.Database.Tables

        For Each CrTable In CrTables

            crtableLogoninfo = CrTable.LogOnInfo

            crtableLogoninfo.ConnectionInfo = crConnectionInfo

            CrTable.ApplyLogOnInfo(crtableLogoninfo)

        Next



        CrystalReportViewer1.ReportSource = cryRpt

        CrystalReportViewer1.Refresh()

    End Sub

End Class