VB.NET ReportViewer1'de ReportParameter nasıl yapılıyor bilen varmı?

[Vatansever]

Arkadaşlar basit bir fatura yazdırma işlemi gerçekleştirmek istiyorum alınan ürünlerin listesi bir datagridde yazılı bunları datagridden yazdırıyorum hepsi güzel burda hiçbir sorun yok ama faturanın bazı yerlerine programın içinde bulunan textbox'lardaki verileri yazdıramıyorum ReportParameter işlemini yapamıyorum YANİ Report1.rdlc dosyasının içinde bir TextBox oluşturuyorum bu textbox'unda veriyi programdaki bir textbox'tan çekmesini istiyorum bu işi nasıl yapabilirim kullandığım kod aşağıda aşağıdaki kod benim gerçek projemin değil bu işi başarmak için yazmaya çalıştığım test projesinin ama mantık aynı datagrid içindeki bilgiler faturada listelenecek textboxların içindeki bilgilerde faturadaki textbox'larda görüntülenecek

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim ds As New DataSet1
        Dim satır As DataRow
        For i As Integer = 0 To Form1.DataGridView1.Rows.Count - 1
            satır = ds.Tables("DataTable1").NewRow()
            satır("İsim") = Form1.DataGridView1.Rows(i).Cells(0).Value
            satır("Soyadı") = Form1.DataGridView1.Rows(i).Cells(1).Value
            satır("Ünvanı") = Form1.DataGridView1.Rows(i).Cells(2).Value
            satır("Yaşı") = Form1.DataGridView1.Rows(i).Cells(3).Value
            ds.Tables("DataTable1").Rows.Add(satır)
        Next i

        Me.ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
        Me.ReportViewer1.LocalReport.ReportPath = System.Environment.CurrentDirectory & "\Report1.rdlc"
        Me.ReportViewer1.LocalReport.DataSources.Clear()
        Me.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", ds.Tables(0)))
        Me.ReportViewer1.DocumentMapCollapsed = True
        Me.ReportViewer1.RefreshReport()
    End Sub

--- Mesaj Güncellendi ---

Aşağıdaki kod gibi değişik kodlar buluyorum ama sonuç başarısız

  [COLOR=blue][FONT=Consolas]Private[/FONT][/COLOR][COLOR=blue][FONT=Consolas]Sub[/FONT][/COLOR][COLOR=black][FONT=Consolas] ParametreAyarla()[/FONT][/COLOR]
  [COLOR=blue][FONT=Consolas]Dim[/FONT][/COLOR][COLOR=black][FONT=Consolas] parameters [/FONT][/COLOR][COLOR=blue][FONT=Consolas]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=Consolas] ReportParameter[/FONT][/COLOR][COLOR=black][FONT=Consolas]() = [/FONT][/COLOR][COLOR=blue][FONT=Consolas]New [/FONT][/COLOR][COLOR=#2B91AF][FONT=Consolas]ReportParameter[/FONT][/COLOR][COLOR=black][FONT=Consolas](1) {}[/FONT][/COLOR]
  [COLOR=black][FONT=Consolas]        parameters(0) = [/FONT][/COLOR][COLOR=blue][FONT=Consolas]New[/FONT][/COLOR][COLOR=#2B91AF][FONT=Consolas] ReportParameter[/FONT][/COLOR][COLOR=black][FONT=Consolas]([/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"ReportParameter1"[/FONT][/COLOR][COLOR=black][FONT=Consolas], [/FONT][/COLOR][COLOR=black][FONT=Consolas]Form1.TextBox1.Text[/FONT][/COLOR][COLOR=black][FONT=Consolas])[/FONT][/COLOR]
  [COLOR=black][FONT=Consolas]        parameters(1) = [/FONT][/COLOR][COLOR=blue][FONT=Consolas]New[/FONT][/COLOR][COLOR=#2B91AF][FONT=Consolas] ReportParameter[/FONT][/COLOR][COLOR=black][FONT=Consolas]([/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"ReportParameter2"[/FONT][/COLOR][COLOR=black][FONT=Consolas], [/FONT][/COLOR][COLOR=blue][FONT=Consolas]New[/FONT][/COLOR][COLOR=blue][FONT=Consolas] String[/FONT][/COLOR][COLOR=black][FONT=Consolas]() {[/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"14335"[/FONT][/COLOR][COLOR=black][FONT=Consolas], [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"15094"[/FONT][/COLOR][COLOR=black][FONT=Consolas]})[/FONT][/COLOR]
  [COLOR=blue][FONT=Consolas]Me[/FONT][/COLOR][COLOR=black][FONT=Consolas].ReportViewer1.ServerReport.SetParameters(parameters)[/FONT][/COLOR]
  [COLOR=blue][FONT=Consolas]End[/FONT][/COLOR][COLOR=blue][FONT=Consolas]Sub[/FONT][/COLOR]