aide pour modifier un code

slt tous
j'avais ce code la pour faire la connection entre un button et crystalreportview et je veux que je n'ecrie rien a la case de umputbox me aficher toute la liste des produit

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim F As New Form2
        Dim h As New stock
        Dim u As String
 
        u = InputBox("Entrer le nom du fournisseur")
        h.SetDataSource(DataSet1)
        Form2.CrystalReportViewer1.ReportSource = h
        Form2.CrystalReportViewer1.SelectionFormula = "{fournisseur.nom}= '" & u & "'"
        Form2.CrystalReportViewer1.RefreshReport()
        Form2.CrystalReportViewer1.Refresh()
        Form2.Show()