VB.net Crystal Reports

Hello Experts,

Using VB.net with VS2010 and I am trying to view a report within my form.

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Select allOpen in new window

   Dim cryRpt As New ReportDocument
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue



        cryRpt.Load(Application.StartupPath & "\Reports\SQLTipPool.rpt")


        crParameterDiscreteValue.Value = (MonthCalendar1.SelectionRange.Start.ToString("yyyy-MM-dd"))
        crParameterFieldDefinitions = _
        cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = _
        crParameterFieldDefinitions.Item("StartDate")
        crParameterValues = crParameterFieldDefinition.CurrentValues
        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        frm_ReportViewer.Show()
        frm_ReportViewer.CrystalReportViewer1.ReportSource = cryRpt

        cryRpt.SetDatabaseLogon("tuser", "pass", "sqlbase", "")

Select allOpen in new window

It produces this error....

---------------------------
Crystal Report Windows Forms Viewer
---------------------------
Failed to retrieve data from the database.
Details:  [Database Vendor Code: -141 ]
Failed to retrieve data from the database.
Error in File SQLTipPool {C25FFE57-8519-4A0B-BBAE-E5FBCA4730D0}.rpt:
Failed to retrieve data from the database.
Details:  [Database Vendor Code: -141 ]
---------------------------
OK  
---------------------------

Also, the report is expecting 2 parameters so I need to pass a second parameter, "EndDate". I cant figure out how to do that as well.

Help?