[AccessD] Recordset based on query

Michael

Thinking that the sql string is too long I have changed the code to the 
following:

Dim rsPopulateQtyBoxes As Recordset
     Set rsPopulateQtyBoxes = New ADODB.Recordset
     rsPopulateQtyBoxes.ActiveConnection = CurrentProject.Connection
     Dim sql As String

     sql = "SELECT tblHires.HireID, tblHires.title, tblHires.Renew, 
tblRentalType.NewRelease " _
     & "FROM tblRentalType INNER JOIN (tblTitles INNER JOIN tblHires ON 
tblTitles.tapeNumber = tblHires.title)" _
     & " ON tblRentalType.RentalTypeID = tblTitles.RentalTypeID" _
     & " WHERE 
(((tblHires.member)=[Forms]![frmHire_New_Members_Extend]![cboSelectMember]) 
AND " _
     & "((tblHires.Renew)=True) AND ((tblHires.DateReturned) Is Null));"


     Debug.Print sql

     rsPopulateQtyBoxes.Open sql, , adOpenKeyset, adLockOptimistic, 
adCmdUnknown

This gave me the following error:
         run-time error: '-2147217904 (80040e10)'
         No value given for one or more required parameters.

David