Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim v_id As String = InputBox("ID:", "", "10")
 
 
        Dim db As New SqlServerCe.SqlCeConnection
        db.ConnectionString = "Data Source = C:\Users\Stephan\VB Programme\VB" & _
          "2008\Offene Projekte\Reporttest\report_test\reportdb.sdf"
 
        db.Open()
        Dim ds As DataSet = New DataSet
        Dim da As New SqlServerCe.SqlCeDataAdapter("SELECT * FROM body WHERE id" & _
          "like '" & v_id & "'", db)
        da.Fill(ds, "daten")
 
 
        Dim bs As New BindingSource
        bs.DataSource = da
 
        Dim rds1 As New Microsoft.Reporting.WinForms.ReportDataSource
        rds1.Value = bs
        ReportViewer1.LocalReport.DataSources.Clear()
        ReportViewer1.LocalReport.DataSources.Add(rds1)
 
        Dim v_paras(1) As Microsoft.Reporting.WinForms.ReportParameter
        v_paras(0) = New Microsoft.Reporting.WinForms.ReportParameter( _
          "rep_name", "Hallo")
        v_paras(1) = New Microsoft.Reporting.WinForms.ReportParameter( _
        "rep_head", "Ich bin ein mehrzeiliger Text" & vbCrLf & "Ich bin die 2." & _
        "Zeile")
 
        Me.ReportViewer1.LocalReport.SetParameters(v_paras)
        Me.ReportViewer1.RefreshReport()
    End Sub

mfG.
Stephan