Public Class Form1
    
    'istanzio un oggetto per il mio report
    Dim cr As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    'dichiaro una variabile per il mio parametro
    Dim parFieldDef As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition

    'istanzio un oggetto \"valore\" e gli assegno il valore che mi interessa
    Dim parDiscreteValue As New CrystalDecisions.Shared.ParameterDiscreteValue()

    'istanzio un oggetto contenente la collezione di valori del parametro
    Dim parValues As New CrystalDecisions.Shared.ParameterValues()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       'qui dichiaro il report da caricare, se non si trova nella stessa cartella dell'applicazione cambia il percorso
      cr.Load(".\CrystalReport1.rpt"

        'istanzio un riferimento al tuo parametro che si chiama insprodotto
        parFieldDef = cr.DataDefinition.ParameterFields.Item("insprodotto")

        'ora gli passiamo il valore della tua texbox
        parDiscreteValue.Value = idprodottotextbox.text
        parValues.Add(parDiscreteValue)

        'applico l\'ultimo valore
        parFieldDef.ApplyCurrentValues(parValues)


        'aggiungo le info per accedere al DB, in questo caso Access
        Dim logOnInfo As New TableLogOnInfo
        logOnInfo.ConnectionInfo.ServerName = Environment.CurrentDirectory & "\TUODB.mdb"
        logOnInfo.ConnectionInfo.DatabaseName = "TUODB"
        logOnInfo.ConnectionInfo.UserID = "Admin"
        logOnInfo.ConnectionInfo.Password = "TUAPASSWORD" 'metti "" se non ha password

        'Imposto le info di accesso per tutte le tabelle
        For intTablesCount As Integer = 0 To cr.Database.Tables().Count() - 1
            cr.Database.Tables(intTablesCount).ApplyLogOnInfo(logOnInfo)
        Next


        'visualizzo il report
        Me.CrystalReportViewer1.ReportSource = cr


    End Sub