or
Private Sub RptRadIdleTime_NeedDataSource(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.NeedDataSource rptHeaderBox.Value = "Report Criteria:" & vbCrLf & "Date Range: " & StartDate.ToShortDateString & " to " & EndDate.ToShortDateString & vbCrLf & _ "Employee: " & EmployeeName & vbCrLf Dim cn As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString) cn.Open() Dim cmd As New SqlCommand("ReportIdleTime") cmd.CommandType = CommandType.StoredProcedure cmd.Connection = cn cmd.Parameters.Add(New SqlParameter("EmployeeID", EmployeeID)) Dim p1 As New SqlParameter("Start", SqlDbType.DateTime) p1.Value = CDate(StartDate) Dim p2 As New SqlParameter("End", SqlDbType.DateTime) p2.Value = CDate(EndDate) cmd.Parameters.Add(p1) cmd.Parameters.Add(p2) Me.DataSource = cmd.ExecuteReader End Sub