Crystal reports logon failed

When I run my project locally on my computer I can generate the CR like I want to.  But when I put the webpage on the server I get this error when I try to run the report page: Logon failed. Details: IM002:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified Error in File C:\WINDOWS\TEMP\CrystalReport {249B0DAC-9F96-4B28-8CDA-F8BB94956BB2}.rpt: Unable to connect: incorrect log on

Below is my page_load function, can anybody help me on this issue ? (I have replaced my server logon information)

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Busnumer, ELS_numer As Integer
        Dim crConnectionInfo As New ConnectionInfo
        Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables
        Dim crtableLogoninfo As CrystalDecisions.Shared.TableLogOnInfo 
        Busnumer = Request.QueryString("Busnumer")
        ELS_numer = Request.QueryString("ELS_Numer") 
        '
        ' Load the selected report file.
        '
        Dim CR As New ReportDocument
        CR.Load("F:\Aicon\MAST-Eftirlit\CrystalReport.rpt") 
        With crConnectionInfo 
            .ServerName = "SQL-SERVER" 
            .DatabaseName = "DBNAME" 
            .UserID = "USERID" 
            .Password = "PASSWORD" 
        End With 
        crTables = CR.Database.Tables 
        'sets connection info. for database tables 
        For Each crTable In crTables 
            crtableLogoninfo = crTable.LogOnInfo 
            crtableLogoninfo.ConnectionInfo = crConnectionInfo 
            crTable.ApplyLogOnInfo(crtableLogoninfo) 
        Next 
        '
        ' Declare the parameter related objects.
        '
        Dim crParameterDiscreteValue As ParameterDiscreteValue
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldLocation As ParameterFieldDefinition
        Dim crParameterValues As ParameterValues
        '
        ' Get the report's parameters collection.
        '
        crParameterFieldDefinitions = CR.DataDefinition.ParameterFields
        '
        ' Set the first parameter
        ' - Get the parameter, tell it to use the current values vs default value.
        ' - Tell it the parameter contains 1 discrete value vs multiple values.
        ' - Set the parameter's value.
        ' - Add it and apply it.
        ' - Repeat these statements for each parameter.
        '
        crParameterFieldLocation = crParameterFieldDefinitions.Item("Busnumer")
        crParameterValues = crParameterFieldLocation.CurrentValues
        crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        crParameterDiscreteValue.Value = Busnumer
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldLocation.ApplyCurrentValues(crParameterValues) 
        crParameterFieldLocation = crParameterFieldDefinitions.Item("ELS_numer")
        crParameterValues = crParameterFieldLocation.CurrentValues
        crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        crParameterDiscreteValue.Value = ELS_numer
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
        '
        ' Set the Crytal Report Viewer control's source to the report document.
        '
        CrystalReportViewer1.ReportSource = CR
    End Sub

Select allOpen in new window