Error on reportdocument.SetDataSource

Question

Hello. I am working in VS 2010 environment. I am trying to open a report based off of data set. But looks like I am doing something wrong, it's throwing an exception with 'Invalid report file path'. Can you tell me what I need to do load from a dataset correctly? I am crystal reports for VS2010. Thanks.
Here's my code:
    Private Sub loadCrystalReport() Handles CrystalReportViewer1.Load
        Dim dsData As New Data.DataSet
        Dim sqlcmm As SqlClient.SqlCommand
        Dim daAdapter As New SqlClient.SqlDataAdapter
        Dim cnn As New SqlClient.SqlConnection
        cnn.ConnectionString = " server=bbsql5;" & _
            "uid=masif;password=testpass;database=casemang"
        cnn.Open()
        If cnn.State = ConnectionState.Open Then
            sqlcmm = New SqlClient.SqlCommand("select * from dailylog", cnn)
            daAdapter.SelectCommand = sqlcmm
            daAdapter.Fill(dsData, "DailyLog")
            If dsData.Tables(0).Rows.Count > 0 Then
                reptDoc.SetDataSource(dsData)
                CrystalReportViewer1.ReportSource = reptDoc
            End If
        End If
    End Sub

Answer 1

Not sure why it's not giving me the results from the select query instead of the whole report then. Here's my code.
reptDoc is the the document. I am trying to load the report DailyLog.rpt with the data set from my query . But right now it loads everything.
    Private Sub loadCrystalReport() Handles CrystalReportViewer1.Load
        Dim dsData As New Data.DataSet
        Dim sqlcmm As SqlClient.SqlCommand
        Dim daAdapter As New SqlClient.SqlDataAdapter
        Dim cnn As New SqlClient.SqlConnection
        cnn.ConnectionString = " server=bbsql5;" & _
            "uid=masif;password=testpass;database=casemang"
        cnn.Open()
        If cnn.State = ConnectionState.Open Then
            sqlcmm = New SqlClient.SqlCommand("select * from dailylog where rundate >='8/18/2011'", cnn)
            daAdapter.SelectCommand = sqlcmm
            daAdapter.Fill(dsData)
            If dsData.Tables(0).Rows.Count > 0 Then
                reptDoc.Load("l:\reports\ecase\dailylog.rpt")
                reptDoc.SetDataSource(dsData)
                 CrystalReportViewer1.ReportSource = reptDoc
                CrystalReportViewer1.RefreshReport()
            End If
            sqlcmm.Dispose()
        End If
    End Sub