Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        With Me.ReportViewer1.LocalReport
            .ReportPath = "C:\Users\Stephan\VB Programme\VB 2008\Offene" & _
              "Projekte\Reporttest\report_test\report_test\Report3.rdlc"
            .DataSources.Clear()
 
            'Parameter:
            Dim parameter(1) As ReportParameter
            parameter(0) = New ReportParameter("rep_name", "Reportname")
            parameter(1) = New ReportParameter("rep_kopf", "Kopftext")
            .SetParameters(parameter)
        End With
        Dim v_id As String = InputBox("ID:", "", "10")
        Dim SQL As String = "SELECT * FROM body WHERE id like '" & v_id & "'"
 
        Dim db As New SqlServerCe.SqlCeConnection
 
        Try
            db.ConnectionString = "Data Source = C:\Users\Stephan\VB" & _
              "Programme\VB 2008\Offene" & _
              "Projekte\Reporttest\report_test\report_test\bin\Debug\reportdb." & _
              "df"
            If db.State = ConnectionState.Closed Then db.Open()
            Dim ds As DataSet = New DataSet
            Dim da As New SqlServerCe.SqlCeDataAdapter(SQL, db)
            Dim rptDataSource As New ReportDataSource("DataSet2_body", _
              ds.Tables("daten"))
            Me.ReportViewer1.LocalReport.DataSources.Add(rptDataSource)
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        If db.State = ConnectionState.Open Then db.Close()
 
 
        Me.ReportViewer1.RefreshReport()
 
    End Sub

mfG.
Stephan