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
                Dim ds As DataSet = New DataSet
                    Using da As New SqlServerCe.SqlCeDataAdapter("SELECT * FROM" & _
                      "body WHERE ID = @ID", db)
                        da.SelectCommand.Parameters.AddWithValue("@ID", v_id )
'oder wenn ID ein integer ist
                        da.SelectCommand.Parameters.AddWithValue("@ID", _
                          Convert.ToInt32(v_id) )
                        da.Fill(ds, "daten")
                        Dim rptDataSource As New ReportDataSource( _
                          "DataSet2_body", ds.Tables("daten"))
                        Me.ReportViewer1.LocalReport.DataSources.Add( _
                        rptDataSource)
                    End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.ReportViewer1.RefreshReport()
    End Sub