Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim myConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo()
        myConnectionInfo.ServerName = "YourDBServerName"
        myConnectionInfo.DatabaseName = "DBName"
        myConnectionInfo.UserID = "DBUserID"
        myConnectionInfo.Password = "DBUserPassword"
        setDBLOGONforREPORT(myConnectionInfo)
    End Sub

 Private Sub setDBLOGONforREPORT(ByVal myconnectioninfo As CrystalDecisions.Shared.ConnectionInfo)
        Dim mytableloginfos As New CrystalDecisions.Shared.TableLogOnInfos()
        mytableloginfos = CrystalReportViewer1.LogOnInfo
        For Each myTableLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo In mytableloginfos
            myTableLogOnInfo.ConnectionInfo = myconnectioninfo
        Next
    End Sub