public partial class ReportPage : Form
{
   Report report;

   private void ReportPage_Load(object sender, EventArgs e)
   {
      CreateReport();
   }
   
   /// <summary>
   /// Rapor içeriğini hazırlar.
   /// </summary>
   private void CreateReport()
   {
      // Yeni bir rapor dosyası oluşturuyoruz.
      report = new Report(); 

      // Resources içerisindeki string biçimindeki raporu
      // yeni oluşturduğumuz rapor içerisine yüklüyoruz.
      report.LoadFromString(Properties.Resources.ReportString);

      // Veritabanına gerekli sorguyu gönderip verileri çekiyoruz.
      DataTable dt = SQLProcesses.GetDataTable("SELECT T.Type, W.WriterName, B.BookName "
                                             + "FROM tblBooks B, tblBookTypes T, tblWriters W "
                                             + "WHERE B.BookTypeID = T.ID AND W.ID = B.BookWriterID "
                                             + "ORDER BY T.Type ASC, W.WriterName ASC");

      // Çektiğimiz verileri daha önceden şablon olarak oluşturduğumuz
      // rapor içerisinde ismi belirtilen tabloya register ediyoruz.
      report.RegisterData(dt, "tblBooksWithTypes");

      /* Rapor gösterilemezse olacakları burada belirliyoruz.
       * Ancak bu kullanımın mecburi olmadığını yalnızca birden fazla rapor oluştururken
       * kullanımı kolaylaştırmak gayesiyle böyle tasarlandığına dikkat edelim. */
      if (!ShowReport(report))
      {
         Application.Exit();
      }
   }

   /// <summary>
   /// Gönderilen raporun görüntülenmesini sağlar ve işlemin başarı durumunu geriye döndürür.
   /// </summary>
   /// <param name="report"></param>
   /// <returns></returns>
   private bool ShowReport(Report report)
   {
      bool rV = false;
      try
      {
         // Gönderilen rapor dosyasının form üzerindeki
         // PreviewControl de gösterileceğini belirtiyoruz.
         report.Preview = pCReports; 

         // Eğer rapor arkapkanda hazırlanmışsa sonraki adıma geçiyoruz. 
         if (report.Prepare()) 
         {
            // Hazırlanmış olan raporun gösterilmesini sağlıyoruz.
            report.ShowPrepared();
            
            // Rapor üzerinde scroll işlemlerini doğrudan gerçekleştirebilmek için
            // PreviewControl üzerine odaklanıyoruz.
            pCReports.Focus(); 

            rV = true;
         }
      }
      catch
      {
         rV = false;
      }
     
      // Eğer rapor başarılı bir şekilde oluşturulduysa geriye true değeri döndürüyoruz.
      return rV; 
   }
}

public class SQLProcesses
{
   /// <summary>
   /// Rapor içeriğini veritabanından çekerek DataTable içerisinde geri döndürür.
   /// </summary>
   /// <param name="cmd">Veritabanına gönderilecek olan sorgu</param>
   /// <returns></returns>
   public static DataTable GetDataTable(string cmd)
   {
      DataTable returnTable = new DataTable();
      try
      {
         OdbcConnection ODBCConn = new OdbcConnection (@"Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
                                                      + "dbq=C:\FASTREPORT .NET SAMPLE\data.mdb;defaultdir=C:\FASTREPORT .NET SAMPLE;"
                                                      + "driverid=25;fil=MS Access;filedsn=C:\FastReport .NET Sample\FR.NETConn.dsn;"
                                                      + "maxbuffersize=2048;maxscanrows=8;pagetimeout=5;safetransactions=0;threads=3;"
                                                      + "usercommitsync=Yes;uid=admin");
         
         OdbcDataAdapter oda = new OdbcDataAdapter(cmd, ODBCConn);
         oda.Fill(returnTable);
      }
      catch(Exception ex)
      {
         MessageBox.Show(string.Format("Hata Oluştu. Hata İçeriğini Aşağıda Görebilirsiniz.\n\n{0}", ex.Message));
      }

      return returnTable;
   }
}

Imports FastReport
Imports System.Data.Odbc

Partial Public Class ReportPage

    Inherits Form

    Private report As Report

    Private Sub ReportPage_Load_1(ByVal sender As System.Object,
                                  ByVal e As System.EventArgs)
    Handles MyBase.Load
        CreateReport()
    End Sub

    ''' <summary>
    ''' Rapor içeriğini hazırlar.
    ''' </summary>
    Private Sub CreateReport()

        ' Yeni bir rapor dosyası oluşturuyoruz.
        report = New Report()

        ' Resources içerisindeki string biçimindeki raporu
        ' yeni oluşturduğumuz rapor içerisine yüklüyoruz.
        report.LoadFromString(My.Resources.MyResources.ReportString)

        ' Veritabanına gerekli sorguyu gönderip verileri çekiyoruz.
        Dim dt As DataTable = SQLProcesses.GetDataTable("SELECT T.Type, W.WriterName, B.BookName "
                                                      & "FROM tblBooks B, tblBookTypes T, tblWriters W "
                                                      & "WHERE B.BookTypeID = T.ID AND W.ID = B.BookWriterID "
                                                      & "ORDER BY T.Type ASC, W.WriterName ASC")

        ' Çektiğimiz verileri daha önceden şablon olarak oluşturduğumuz
        ' rapor içerisinde ismi belirtilen tabloya register ediyoruz.
        report.RegisterData(dt, "tblBooksWithTypes")

        ' Rapor gösterilemezse olacakları burada belirliyoruz.
        ' Ancak bu kullanımın zorunlu olmadığını yalnızca birden fazla rapor oluştururken
        ' kullanımı kolaylaştırmak amacıyla böyle tasarlandığına dikkat edelim.
        If Not ShowReport(report) Then
            Application.[Exit]()
        End If
    End Sub

    ''' <summary>
    ''' Gönderilen raporun görüntülenmesini sağlar ve işlemin başarı durumunu geriye döndürür.
    ''' </summary>
    ''' <param name="report"></param>
    ''' <returns></returns>
    Private Function ShowReport(ByVal report As Report) As Boolean
        Dim rV As Boolean = False
        Try

            ' Gönderilen rapor dosyasının form üzerindeki
            ' PreviewControl de gösterileceğini belirtiyoruz.
            report.Preview = pCReports

            ' Eğer rapor arkapkanda hazırlanmışsa sonraki adıma geçiyoruz.
            If report.Prepare() Then

                ' Hazırlanmış olan raporun gösterilmesini sağlıyoruz.
                report.ShowPrepared()

                ' Rapor üzerinde scroll işlemlerini doğrudan gerçekleştirebilmek için
                ' PreviewControl üzerine odaklanıyoruz.
                pCReports.Focus()

                rV = True
            End If
        Catch
            rV = False
        End Try

        ' Eğer rapor başarılı bir şekilde oluşturulduysa geriye true değeri döndürüyoruz.
        Return rV

    End Function

End Class

Public Class SQLProcesses
    ''' <summary>
    ''' Rapor içeriğini veritabanından çekerek DataTable içerisinde geri döndürür.
    ''' </summary>
    ''' <param name="cmd">Veritabanına gönderilecek olan sorgu</param>
    ''' <returns></returns>
    Public Shared Function GetDataTable(ByVal cmd As String) As DataTable
        Dim ReturnTable As New DataTable()
        Try
            Dim ODBCConn As New OdbcConnection("Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
                                             & "dbq=C:\FASTREPORT .NET SAMPLE\data.mdb;"
                                             & "defaultdir=C:\FASTREPORT .NET SAMPLE;driverid=25;"
                                             & "fil=MS Access;filedsn=C:\FastReport .NET Sample\FR.NETConn.dsn;"
                                             & "maxbuffersize=2048;maxscanrows=8;pagetimeout=5;safetransactions=0;"
                                             & "threads=3;usercommitsync=Yes;uid=admin")

            Dim oda As New OdbcDataAdapter(cmd, ODBCConn)
            oda.Fill(ReturnTable)
        Catch ex As Exception
            MessageBox.Show(String.Format("Hata Oluştu. Hata İçeriğini Aşağıda Görebilirsiniz."
                                          & vbLf & vbLf & "{0}", ex.Message))
        End Try

        Return ReturnTable
    End Function
End Class