Visual Basic

Public Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
       selectDistOfItem()
       getAndDisplaySum()
       Me.Refresh()
   End Sub

Private Sub lvOrders_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvOrders.DoubleClick
        If lvOrders.SelectedItems.Count > 0 Then
         'some codes here
        Dim kit As New frmKitchen
        kit.btnRefresh_Click(Nothing, Nothing)

        End If
    End Sub

Sub Fill()
        cryRpt.Load("C:\Users\MicroboxMac\Documents\Visual Studio       2015\Projects\ReportsDemo\ReportsDemo\bin\Debug\cr1.rpt")
        cryRpt.SetDataSource(reportsQuery(TextBox1.Text.Trim))
        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()
    End Sub

Public Function reportsQuery(ByVal bId As Integer)
        Dim db = New database
        Dim dt As New DataTable
        MessageBox.Show(bId)
        With db
            .sqlStr = "SELECT * from brandnames Where brandid = '" & bId & "' " 'query string
            .sqlDa.SelectCommand = .sqlcm(.sqlStr, .connect) 'execute command
            .sqlDa.Fill(.sqlDt) 'get results and store in sqldt 
            .close()
        End With

        Return db.sqlDt
    End Function

An unhandled exception of type 'System.IO.FileNotFoundException' occurred in mscorlib.dll

Additional information: Could not load file or assembly 'file:///C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll' or one of its dependencies. The system cannot find the file specified.

Dim ds_items As New DataSet()
ds_items.DataSetName = "ds_invoice_items"
ds_items.Tables.Clear()
ds_items.Tables.Add(table_Items)
ds_items.Tables(0).TableName = "tablix_invoice_items"

'Write the datasource to the report canvas
rv_Canvas.LocalReport.DataSources.Clear()
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_salesRep", ds_salesRep.Tables(0)))
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_salesRep_invoices", ds_invoices.Tables(0)))
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_invoice_bAddress", ds_bAddress.Tables(0)))
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_invoice_sAddress", ds_sAddress.Tables(0)))
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_invoice_items", ds_items.Tables(0)))
rv_Canvas.LocalReport.DisplayName = p_salesRepName & " Invoices"
AddHandler rv_Canvas.LocalReport.SubreportProcessing, AddressOf Me.SetSubDataSource

Private Sub SetSubDataSource(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)

<pre>
Dim mainSource = CType(sender, LocalReport).DataSources("ds_invoice_items")
Dim FINVNO = Integer.Parse(e.Parameters("FINVNO").Values.First)

Module Module1
    Public Class IniFile

        Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
            (ByVal lpApplicationName As String,
             ByVal lpKeyName As String,
             ByVal lpDefault As String,
             ByVal lpReturnedString As System.Text.StringBuilder,
             ByVal nSize As Integer,
             ByVal lpFileName As String) _
         As Integer

        Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
            (ByVal lpApplicationName As String,
             ByVal lpKeyName As String,
             ByVal lpString As String,
             ByVal lpFileName As String) _
        As Integer

        Public Property Path As String

        Public Sub New(ByVal IniPath As String)
            _Path = IniPath
        End Sub

        Public Function ReadValue(ByVal section As String, ByVal key As String) As String
            Dim sb As New System.Text.StringBuilder(255)
            Dim i = GetPrivateProfileString(section, key, "", sb, 255, Path)
            Return sb.ToString()
        End Function

        Public Sub WriteValue(ByVal section As String, ByVal key As String, ByVal value As String)
            WritePrivateProfileString(section, key, value, Path)
        End Sub

    End Class


End Module