Crystal Reports in VB probleem

[Tantie]

Ik krijg maar geen data in het scherm via deze code,

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'rptNewReport is een nieuw object aanmaken op basis van het nieuwe rapport CrystalReport1.rpt
        Dim rptNewRapport As New CrystalReport1()
        Dim myConnection As OleDb.OleDbConnection

        Dim MyCommand As New OleDb.OleDbCommand

        Dim myDA As New OleDb.OleDbDataAdapter

        'GDL4_DS is mijn dataset die ik aangemaakt heb in mijn vb project, is hetzelfde als in C# (waar je uw ‘views aan toegevoegd hebt)
        Dim myDS As New DataSet1

        'Volgende 4 lijnen dienen om mijn formulier te openen
        Dim lfrm_ReportViewer As New Form1
        'lfrm_ReportViewer.MdiParent = Me
        'lfrm_ReportViewer.Show()
        lfrm_ReportViewer.Text = lfrm_ReportViewer.Text & " : " & "All Measured Workorders"

        Try
            myConnection = New OleDb.OleDbConnection("hier staat de verbinding met de database")
            MyCommand.Connection = myConnection
            'WorkOrderDetail is mijn View die ik heb gemaakt
            MyCommand.CommandText = "Hier is de te gebruiken query"
            MyCommand.CommandType = CommandType.Text
            myDA.SelectCommand = MyCommand

            myDA.Fill(myDS)
            rptNewRapport.SetDataSource(myDS)
            lfrm_ReportViewer.CrystalReportViewer1.ReportSource = rptNewRapport

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

    End Sub

Alle suggesties zijn welkom!!!