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()
'Tut mir ganz viel sry aber der Code klappt derzeit nicht anders:
            Dim parameter(1) As ReportParameter
            parameter(0) = New ReportParameter("rep_name", "Reportname")
            parameter(1) = New ReportParameter("rep_kopf", "Kopftext")
            .SetParameters(CType(v_parameter, ReportParameter))
        End With
        Dim v_id As String = InputBox("ID:", "", "10")
 
        Try
            Using db As New SqlServerCe.SqlCeConnection
                db.ConnectionString = "Data Source = " & v_pfad
                Using ds As DataSet = New DataSet
                    Using da As New SqlServerCe.SqlCeDataAdapter("SELECT * FROM" & _
                      "body WHERE ID like '" & v_id & "'", db)
                        da.Fill(ds, "daten")
                        Dim tbl As DataTable = ds.Tables("daten")
                        Dim rptDataSource As New ReportDataSource( _
                          "DataSet2_body", ds.Tables("daten"))
                        Me.ReportViewer1.LocalReport.DataSources.Add( _
                        rptDataSource)
                    End Using
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.ReportViewer1.RefreshReport()
    End Sub

            Dim v_parameter As New Collection
            v_parameter.Add(New ReportParameter("rep_name", "Reportname"))
            v_parameter.Add(New ReportParameter("rep_kopf", "Kopftext"))
 
            .SetParameters(CType(v_parameter, ReportParameter))

mfG.
Stephan