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