Crystal Reports

[OuTCasT]

Hi all.
I did a report in Crystal for a payroll program. they start a company which is a database.
now can i use 1 report for all the companies because all the companies/database will have exactly the same tables and heading etc.
how would i change the databasename for the report so that i can get the data from the different databases.... i did it like this but it aint working

Private Sub Report()
        Dim report As New ReportDocument
        Dim connection As IConnectionInfo
        Dim oldServerName As String = TextBox1.Text
        Dim oldDatabaseName As String = txtCompanyName.Text
        Dim newServerName As String = TextBox1.Text
        Dim newDatabaseName As String = txtCompanyName.Text
        Dim UserID As String = ""
        Dim Password As String = ""
 
 
        report.Load("C:\report2.rpt")
        CrystalReportViewer1.ReportSource = report
 
        'Change the server name and database in main report
        For Each connection In report.DataSourceConnections
            If (String.Compare(connection.ServerName, oldServerName, True) = 0 _
               And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then
                'SetConnection can also be used to set new logon and new database table
                report.DataSourceConnections(oldDatabaseName, oldDatabaseName).SetConnection(newServerName, newDatabaseName, UserID, Password)
            End If
        Next
        'Change the server name and database subreports
        Dim subreport As ReportDocument
        For Each subreport In report.Subreports
            For Each connection In subreport.DataSourceConnections
                If (String.Compare(connection.ServerName, oldServerName, True) = 0 _
                   And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then
                    subreport.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection(newServerName, newDatabaseName, UserID, Password)
                End If
            Next
        Next
    End Sub