del combo llamar los datos a una textbox de una bd

[geforvi]

tengo una base de datos almacen,y la tabla producto,tengo un combo que es descripcion y un textbox.
lo que quiero hacer es que al seleccionar el articulo me aparesca automaticamente en la caja de texto el precio.pero jalandolo de la base de datos sql, les agradecere toda la ayuda posible
gracias
'Try
'Select Case UCase(Val(cbodescri.SelectedValue))
' Case "TECLADO" : txtpre.Text = "230"
' Case "SCANNER" : txtpre.Text = 250
' Case "IMPRESORA" : txtpre.Text = 350
'' Case "MOUSE" : txtpre.Text = 10
' Case "SPEAKER" : txtpre.Text = 430
' Case "LECTORA" : txtpre.Text = 15
' Case "WEBCAM" : txtpre.Text = 25
' Case Else
' txtpre.Text = 0
' End Select
'Catch ex As Exception
' MsgBox(ex.Message)
'End Try
Try
Dim DESCRIP As String
DESCRIP = cbodescri.SelectedValue
Dim da As New SqlDataAdapter()
da = New SqlDataAdapter("select * from producto where descripcion='" + DESCRIP + "'", cn)
Dim ds As New DataSet()
da.Fill(ds, "lista")
If ds.Tables("producto").Rows.Count > 0 Then
txtpre.Text = ds.Tables("lista").Rows(0)("precio")
Else
MsgBox("no existe")
End If

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try
End Sub

[RootK]

Hola... una pregunta.. no sería mas fácil obtener el producto a través de un id en vez de descripción..??

New SqlDataAdapter("select * from producto where descripcion='" + DESCRIP +

Podría quedar algo así:

New SqlDataAdapter("select * from producto where idProducto=" id_Producto)

Ahora.. en vez de usar un dataset te recomendaría un datareader.. (en este caso). ejemplo.

Dim oConn As New SqlConnection(ConfigurationSettings.AppSettings("t u_conexion"))
Dim cmd As New SqlCommand("select * from producto where idProducto=" & id_Producto, oConn)
oConn.Open()
Dim r As SqlDataReader = cmd.ExecuteReader

If r.Read then
txtpre.Text = r("precio")
else
MsgBox("no existe")
End IF

r.close
oConn.close

Saludos y suerte