Visual Basic - DATACOMBO ayuda please, con esto termino todo

Hola a todos

Necesito que me manden algun codigo fuente, lo que quiero es que tengo DOS DataCombos, un DataCombo tiene su lista de Codigos y el otro DataCombo tiene su lista de Precios. Quiero que cuando eliga un Codigo en el DataCombo1 y me muestre su Precio en el DataCombo2. ¿Como hago? Please, necesito que me ayuden con esto asi termino todo, tengo dias con esto y no logro.

Uso Access y el Rs.

Ojala me ayuden, muchas gracias.

Saludos.
Tamara.

amiga mia .. creo eso ya esta echo por algun lado.. buscalo y si eres flojita = a mi...

ps creo k con esto la haces :
------------------------------------------------------------
1. ps la primera forma es k hagas un select seleccionando lo qeu quieres con la condicion del combo.. claro este codigo va dentro del combo1-...

EJM:

dim x as string
x = "select precio from nombre_tabla where codigo=' " + datacombo1.text + " ' "
cn.execute x
set rs=new adodc.recordset
rs.cursorlocation=usercliente '(no recuerdo si esto es necesario k vaya pero prueba)
rs.open x , cn , adOpenDynamic,adLockPessimistic
set datacombo2.rowsource=rs
set datacombo2.listfield="precio"
----------------------------------------------------------------

NOTA :
cn = es la variable k declaraste en generales para la conexion
EJM: Dim cn as adodb.connection
rs = es la variable k declaraste en generales para el recordset
EJM: Dim rs as adodb.recordset
adOpenDynamic,adLockPessimistic = esto lo puedes cambiarlo por el k deseas o lo qu ecreas combeniente

espero haberte ayudado.. chao

si que esta hecho en todos lados pero no lo que queria yo, a lo mejor busque mal. gracias por la ayuda, mas tarde lo pruebo pq estoy en el trabajo

muchas gracias

=)

Private Sub DataCombo1_Click(Area As Integer)
Dim sql As String
sql = "Select PrecioUnitario from Codigos where Codigo=' " + DataCombo1.Text + " ' "
cn.Execute sql

Set rsgrid = New Recordset
rsgrid.CursorLocation = adUseClient '(no recuerdo si esto es necesario k vaya pero prueba)
rsgrid.Open sql, cn, adOpenStatic, adLockPessimistic
Set DataCombo2.RowSource = rsgrid
DataCombo2.ListField = "PrecioUnitario"
End Sub

Les aclaro nuevamente, quiero que cuando selecciono un codigo en un datacombo1, me muestre SU precio en el datacombo2.

Ayudenme y les agradezco mucho

Saludos

Te envio un ejemplo que te hecho de prueba a tu correo. Espero te ayude.

Un saludo