Private Sub SetLogOnInfo(ByVal server As String, ByVal database As String, _
  ByVal userID As String, ByVal password As String, ByVal table As String)
        Dim logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo()
        logOnInfo = C_Report.Database.Tables.Item(table).LogOnInfo
        ' Set the connection information for the table in the report.
        logOnInfo.ConnectionInfo.ServerName = server
        logOnInfo.ConnectionInfo.DatabaseName = database
        logOnInfo.ConnectionInfo.UserID = userID
        logOnInfo.ConnectionInfo.Password = password
        logOnInfo.TableName = table
 
    End Sub