Visual Basic - sql??

Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim sql As String
Dim nova As Integer
Private Type venta
idventa As Integer
descripcio As String * 30
PvpNeto As Double
Total As Double
End Type

hjay os dejo las variables ,bueno realkuizo la conexxion y todo va bien ..
pero cuando kiero ejecutar una consulta sql que me devuelve

un solo valor no se como a signarlo a la variable

With venta
descripcio = List1
sql = "Select preu from Articles where nom like " & descripcio
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic, adCmdText
---------------todo va bien
PvpNeto = rs("preu") <----aki peta , komo asigno el precio ke me devolverla sql a la variable pvpneto???
rs.Close


End With

PvpNeto = rs!preu

error 3021 en tiempo de ejecucion

el valor de bof o eof es true ,o el actual registro se elimino ,la operacion solicitada requiere un registro actual.

Sabe alguien pq ??

-------------------------------------

With venta
descripcio = List1 <----tengo una lista con productos en cunado clicl le asigno el valor clickado a descripcio .
'Aqui realizo la consulta sql para saber el precio de ese producto

sql = "Select preu from Articles where nom like " & " '" & descripcio & " ' "
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic, adCmdText

PvpNeto = rs!Preu
'Aqui intento asignarsela a una variable


rs.Close

End With
----------------------------------------------------

Creo que el error lo tienes en la consulta sql, ponle asteriscos entre las comillas simples
sql = "Select preu from Articles where nom like '*" & descripcio & "* ' "
Saludos

Creo que lo estas haciendo mal
Luego de abrir tu recordset debes preguntar si no esté vacío, un recordset está vacío cuando sus propiedades bof y eof son true.
Luego puedes asignar los valo res a tus variables.

ese error te sale porque tu consulta no te esta devolviendo ningun registro, tienes que hacer lo siguiente como te dijo Luis:

IF NOT rs.Eof then
'Se encontraron registros es decir:
PvpNeto = rs!Preu
ELSE
Msgbox "No se encontraron registros"
ENDIF

Si, tienes la razón cristian. Pero para ser más específico debe ser así:
if not rs.bof and not rs.eof then
o así:
if not(rs.bof and rs.eof) then

si claro, solo te dije como hacerlo, los detalles los tienes que hacer tu, tienes que aprender a manejar todo eso, maneja tambien si en caso el valor te devuelve nulo, si no te sale error.

Muxisimas gracias a todos ya me estaba volviendfo loco ,
pensave ke igual estaba ma lhexa la connexion y too XDD


muestro la solucion final para vuestra curiosidad


With venta
descripcio = List1
sql = "Select preu from Articles where nom like " & "'" & descripcio & "'"
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic, adCmdText

If Not (rs.BOF And rs.EOF) Then

PvpNeto = rs!Preu
Text3 = PvpNeto
Else
MsgBox "No se encontraron registros"
End If



rs.Close

End With


Muxisimas gracias me haveis sacado de un gran apuro