.NET (Core and Framework)

Dim rpt As New CrystalReport1() 'The report you created.
        Dim myConnection As SqlConnection
        Dim MyCommand As New SqlCommand()
        Dim myDA As New SqlDataAdapter()
        Dim myDS As New Dataset1() 'The DataSet you created.

        Try

            myConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;" & _
                                             "Initial Catalog=northwind;")
            MyCommand.Connection = myConnection
            MyCommand.CommandText = "SELECT * FROM Customers"
            MyCommand.CommandType = CommandType.Text
            myDA.SelectCommand = MyCommand

            myDA.Fill(myDS, "Customers")
            rpt.SetDataSource(myDS)
            CrystalReportViewer1.ReportSource = rpt

        Catch Excep As Exception
            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try