Necesito ayuda urgente
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.
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.