Ho trovato nel forum il seguente codice

codice:
Imports System.Data
Imports Microsoft.Reporting.WinForms

Public Class Form1
    
Private Sub ReportViewerOledb(ByVal strRep, ByVal strProv)
        Dim MyReport As New Microsoft.Reporting.WinForms.ReportViewer

        ''Set RDL file. 
        MyReport = ReportViewer1
        MyReport.LocalReport.ReportPath = strRep

        '' Supply a DataTable corresponding to each report 
        '' data source. 
        Dim cmdReport As New OleDb.OleDbCommand
        Dim drReport As OleDb.OleDbDataReader
        Dim conReport = New OleDb.OleDbConnection
        Dim dsReport As New ClientiDataSet
        conReport.ConnectionString = strProv
        cmdReport.CommandType = CommandType.Text
        cmdReport.CommandText = "Select codice, Nome, codice & space(1) & Nome as [File Excel]from clienti where nome=" & "'" & TextBox1.Text & "'"
        cmdReport.Connection = conReport
        conReport.Open()
        drReport = cmdReport.ExecuteReader()
        dsReport.Tables(0).Load(drReport)
        drReport.Close()
        conReport.close()
        MyReport = ReportViewer1
        Dim rds As New ReportDataSource
        rds.Name = "DataSource1"
        rds.Value = dsReport.Tables(0)
        MyReport.LocalReport.DataSources.Add(rds)
        If conReport.state = ConnectionState.Open Then
            conReport.close()
        End If
        Me.ReportViewer1.RefreshReport()
    End Sub
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ReportViewerOledb(My.Application.Info.DirectoryPath & "\Report2.rdl", Me.ClientiTableAdapter.Connection.ConnectionString)
    End Sub

    
End Class
che valori devono avere i parametri; o meglio dove li prendo?

Grazie
Massimiliano