Duda con combo y text

Buenas tardes expertos:
Espero que alguien de ustedes me pueda ayudar a solucionar una duda que tengo
este es el código de un combo box cuando le das "click" a cierto elemento, deseo que aparezca los datos en un textbox. Pero siempre me aparece el msgbox, pero yo si tengo dado de alta el producto
aquí les dejo el código para ver si me pueden decir en dónde me estoy equivocando
muchas gracias por su tiempo
Private Sub cbo_claveprod_Click()
Dim r As New ADODB.Recordset
r.Open "SELECT descripcion, precio FROM productos WHERE id_prod= ' " & cbo_claveprod.ItemData(cbo_claveprod.ListIndex) & " ' ", gsconnect
If r.EOF And r.BOF Then
MsgBox "No Existe Este Producto", vbInformation, " Orden de Compra"
Exit Sub
Else
txt_desc.Text = r!descripcion
lbl_precio2.Caption = r!precio
End If
r.Close
Set r = Nothing
End Sub