Visual Basic - visual i sql

como puedo asignarle a uncampo de una tabla el resultado de esta consulta sql

sql = "Select preu FROM Articles WHERE descripcio=" & producte
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic, adCmdText

rs1!preu =?????????????

quisiera añadir en el campo 'preu' el resultado

rs1.!preu=lo que me devuelva la consulta

gracias

solo debes poner:
rs1.preu = rs.fields("preu").value

Nota: supongo que estas utilizando ADODB.

Bueno me da errores ,pongo todo el codigo,y me explico mejor
tenog creadas en sql dos tablas
productos( descricion ,precio,......)
ventas( descripcion , unidades,precio......)

en visual hago que los productos se cargen en un listbox ,
y tengo creado un datagrid sobre la tabla ventas.

entonces quiero que cuando se clicle en el listbox se carge en el datagrid el prodcuto cliclado , y se insete en la tabla ventas.


Private Sub List1_Click()

Dim producte As String
Dim sql As String

cn.CursorLocation = adUseClient
rs.Open "Articles", cn, addopendynamic, adLockOptimistic 'abrimos las dos tablas
rs1.Open "Ventas", cn, addopendynamic, adLockOptimistic

Set DataGrid1.DataSource = rs1

producte = List1 'le asignamos a la variable producte ,el producto cliclado en el listbox

rs1.AddNew
rs1!descripcio = producte 'asignamos a la tabla de ventas el producto en el
campo descripcion

'a partir de conocer el producto que hemos cliclado realizo una consulta para conocer su precio

sql = "Select preu FROM Articles WHERE descripcio=" & producte
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic, adCmdText

rs1!preu==?????????????????????????? 'aqui deberia añadir lo devuelto por la consulta sql, que siempre sera un unico valor ,xro como lo hago

rs1.Update
rs.Close
rs1.Close

'gracias

Debes utilizar otro recordset y de ahí extraer el valor:

sql = "Select preu FROM Articles WHERE descripcio=" & producte
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic, adCmdText

Dim rs2 As Recordset

Set rs2 = TuObjetoConnection.Execute(sql)

rs1!preu = rs2!preu