'istanzio l'oggetto Report Document
Dim myRep As New CrystalDecisions.CrystalReports.Engine.ReportDocument

'mi preparo il percorso del report
dim RepPath as string = Application.StartupPath & "\Report\rptProntuarioTecnico.rpt"

'preparo la query
sqlString = "SELECT  `cliente`, `cliente_stato`, ... FROM `prontuario_fiere_tecnico`...

'indico all'oggetto report qual'è il percorso del report
myRep.Load(RepPath)

'popolo la datatable
 Dim cnt = New MySql.Data.MySqlClient.MySqlConnection(ConnectionString)
        Dim MyDbDataAdapter As MySql.Data.MySqlClient.MySqlDataAdapter
        Try
            MyDbDataAdapter = New MySql.Data.MySqlClient.MySqlDataAdapter(sqlString, cnt)
        Catch ex As Exception
            MsgBox(ex.Message)
            Return
        End Try


        Dim ds As DataSet = New DataSet()

        Try
            MyDbDataAdapter.Fill(ds, "prontuario_fiere_report") ' "prontuario_fiere_report" è il nome della datatable nel dataset del progetto!!! Deve essere identico! Occhio che è keysensitive!!!!
        Catch ex As Exception
            MsgBox(ex.Message)
            Return
        End Try

'ora imposto il datasource del report con il dataset contenente la datatable popoplata
        Try
            myRep.SetDataSource(ds)
        Catch ex As Exception
            MsgBox(ex.Message)
            Return
        End Try

'Non mi resta che caricare il report nel report viewer...
CrystalReportViewer1.ReportSource = myRep