[ahmedhhh2]

الحمد لله تم التعديل علي الكود وربط قاعدة البيانات معه بنجاح وهذا هو 

Imports Microsoft.Reporting.WinForms
Imports System.IO
Imports System.Text
Imports System.Drawing.Imaging
Imports System.Drawing.Printing
Imports System
Imports System.Globalization
Imports System.Drawing
Imports System.Collections.Generic
Imports System.Collections.Specialized
Imports System.Data
Imports System.Data.OleDb

Public Class Form2

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim params1 = New ReportParameter("Parameter1", Form1.TextBox1.Text)

        Dim conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db21alx22889129111177.mdb;user id=admin;jet oledb:database password=*****")

        Dim dataset1 As New DataSet

        On Error Resume Next
        Dim DT As New DataTable
        DT.Clear()

        Dim cmdString As String = "select * from cb   "
        conn.Open()
        Dim adpt As New OleDbDataAdapter(cmdString, conn)
        adpt.Fill(DT)

        '    Dim datasource As New rs

        Dim datasource As New ReportDataSource("cb", DT)


        Me.ReportViewer2.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
        ReportViewer2.LocalReport.DataSources.Clear()
        ReportViewer2.LocalReport.SetParameters(params1)

        ReportViewer2.LocalReport.DataSources.Add(datasource)

        ReportViewer2.LocalReport.SetParameters(params1)
        Me.ReportViewer2.RefreshReport
    End Sub

    Private Sub ReportViewer2_Load(sender As Object, e As EventArgs) Handles ReportViewer2.Load


    End Sub
End Class

---

يجب اضافة قاعدة البيانات داخل Report1 يدوي واسم قاعدة البيانات بتفس اسم الجدول في الكود