[hitman48]

راح ارفقلك مثال الصحيح ان شاء الله يساعدك

كود :

Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine


Public Class Form1
    Dim conn As New SqlConnection("Data source=.\SQLEXPRESS; Database=yours;Integrated Security=true")
    Dim cmd As SqlCommand
    Dim reader As SqlDataReader
    Dim r As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SqlQuery As String = "select * from table WHERE id = " & DataGridView1.SelectedRows(0).Cells(0).Value & ""

        Dim SqlCommand As New SqlCommand
        Dim SqlAdepter As New SqlDataAdapter
        Dim TABLE As New DataTable

        With SqlCommand
            .CommandText = SqlQuery
            .Connection = conn
        End With
        With SqlAdepter
            .SelectCommand = SqlCommand
            .Fill(TABLE)
        End With
        Dim crystal As New CrystalReport1
        crystal.SetDataSource(TABLE)
        CrystalReportViewer1.ReportSource = crystal
        CrystalReportViewer1.Refresh()

    End Sub


    Private Sub showdata()
        Dim conn As SqlConnection = New SqlConnection("Data source=.\SQLEXPRESS; Database=yours;Integrated Security=true")
        Dim sqlstr = "select * from table"
        Dim da As SqlDataAdapter = New SqlDataAdapter(sqlstr, conn)
        Dim ds As New DataSet
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)



    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        showdata()



    End Sub



End Class