Imports System.Data.OleDb Public Class Form2 Private Sub CrystalReportViewer1_Load(sender As Object, e As EventArgs) Handles CrystalReportViewer1.Load End Sub Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.InitializeComponent() Dim myConn As New OleDbConnection("Provider = Microsoft.jet.OLEDB.4.0; Data Sourse = D:\kaybee\databases\try11.mdb") Dim MyCommand As New OleDbCommand() MyCommand.Connection = myConn MyCommand.CommandText = "SELECT SerialNumber,dated,ReceivedFrom,ReceivedFrom,DocketReferance,DocumentDescription,HandedOverTo FROM try11" myConn.Open() MyCommand.CommandType = CommandType.Text Dim da As New OleDbDataAdapter() da.SelectCommand = MyCommand Dim myDS As New DataSet1() da.Fill(myDS, "try11") Dim oRPT As New try14() oRPT.SetDataSource(myDS) CrystalReportViewer1.ReportSource = oRPT End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)