Necesito ayuda urgente

luisen
03 de Febrero del 2004
Tengo este código:

Private Sub cmdBeneficio_Click()

Dim oConexion As New ADODB.Connection
Dim ruta As String

ruta = App.Path + "Olivas.mdb"
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open ruta

Dim rsBenSINAño As New ADODB.Recordset
Dim sql As String

sql = " select Concepto,Importe,Fecha from COBENEFICIOS,BENEFICIO where COBENEFICIOS.IdBeneficio = BENEFICIO.IdBeneficio and IdOlivar = (select IdOlivar from OLIVAR where IdOlivar ='" & DCOlivares.Text & "')"

rsBenSINAño.Open sql, oConexion, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = rsBenSINAño
DataGrid1.Refresh

rsBenSINAño.Close
oConexion.Close

End Sub

El problema que tengo es que me da un error, " No se han especificado valores para alguno de los parámetros especificados" esto me da en la linea en la que abro el recordset.
Muchisimas gracias a quien me pueda ayudar o dar alguna idea.