[a.ahmed]

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Dim olecon As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DB.accdb;")

    Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrint.Click

        Dim da As New OleDbDataAdapter("SELECT Tbl_Customers.CustID, Tbl_Customers.CustName FROM Tbl_Customers WHERE [Tbl_Customers.CustID]=@CustID;", olecon)
        da.SelectCommand.Parameters.AddWithValue("@CustId", TextBox1.Text)

        Dim dt As New DataTable
        da.Fill(dt)

        Dim rpt As New CrystalReport1
        rpt.SetDataSource(dt)
        CrystalReportViewer1.ReportSource = rpt

    End Sub

End Class