No value given for 1 or more required parameters.

I keep getting an error about No value given and then the the code stops.

When i run the response.write code below the vaule is bing pulled from the form but it doenst seem like something in my Select statement is working write. Could it be my Query strings?

Thanks for the help again!


 Sub DayWeekView(ByVal s As Object, ByVal e As EventArgs)
        Dim varQueryString As String = ReservationViews.SelectedItem.Value
        'Response.Write(ReservationViews.SelectedItem.Value)
        'Response.End()
        Dim Query As String
       
        Select Case varQueryString
           
            Case "1"
               
                Query = "SELECT tbl_Reservations.Reservation_ID, tbl_Customers.FName, tbl_Customers.LName, tbl_Reservations.ReservationDate, tbl_Reservations.RentalPeriodHrs, tbl_Fleet.Fleet, tbl_Reservations.Paid " & _
                " FROM tbl_ReturnInfo INNER JOIN (tbl_Fleet INNER JOIN (tbl_Pickup INNER JOIN (tbl_Customers INNER JOIN tbl_Reservations ON tbl_Customers.Customer_ID = tbl_Reservations.Customer_ID) ON tbl_Pickup.Pickup_ID = tbl_Reservations.Pickup_ID) ON tbl_Fleet.Fleet_ID = tbl_Reservations.Fleet_ID) ON tbl_ReturnInfo.Return_ID = tbl_Reservations.Return_ID" & _
                " WHERE (((tbl_Reservations.ReservationDate)=DateAdd(" & "d" & ",1,Date())))"
                Response.Write(Query)
                Response.End()
            Case "2"
               
                Query = "SELECT tbl_Reservations.Reservation_ID, tbl_Customers.FName, tbl_Customers.LName, tbl_Reservations.ReservationDate, tbl_Reservations.RentalPeriodHrs, tbl_Fleet.Fleet, tbl_Reservations.Paid" & _
                " FROM tbl_ReturnInfo INNER JOIN (tbl_Fleet INNER JOIN (tbl_Pickup INNER JOIN (tbl_Customers INNER JOIN tbl_Reservations ON tbl_Customers.Customer_ID = tbl_Reservations.Customer_ID) ON tbl_Pickup.Pickup_ID = tbl_Reservations.Pickup_ID) ON tbl_Fleet.Fleet_ID = tbl_Reservations.Fleet_ID) ON tbl_ReturnInfo.Return_ID = tbl_Reservations.Return_ID" & _
                " WHERE (((tbl_Reservations.ReservationDate)=DateAdd(" & "w" & ",1,Date())))"

            Case Else
                Query = "SELECT tbl_Reservations.Reservation_ID, tbl_Customers.FName, tbl_Customers.LName, tbl_Reservations.ReservationDate, tbl_Reservations.RentalPeriodHrs, tbl_Fleet.Fleet, tbl_Reservations.Paid" & _
                " FROM tbl_ReturnInfo INNER JOIN (tbl_Fleet INNER JOIN (tbl_Pickup INNER JOIN (tbl_Customers INNER JOIN tbl_Reservations ON tbl_Customers.Customer_ID=tbl_Reservations.Customer_ID) ON tbl_Pickup.Pickup_ID=tbl_Reservations.Pickup_ID) ON tbl_Fleet.Fleet_ID=tbl_Reservations.Fleet_ID) ON tbl_ReturnInfo.Return_ID=tbl_Reservations.Return_ID"

        End Select
       
       
       
        objCmd = New OleDbCommand(Query, objCon)
        objCon.Open()

        objRdr = objCmd.ExecuteReader()
        dgReservations.DataSource = objRdr
        dgReservations.DataBind()

        objRdr.Close()
        objCon.Close()
    End Sub