Buscar Fila en una tabla, por codigo

[robertgustavo]

al hacer doble click en una fila se abre el formulario de edicion,ok , lo que hago es enviar el codigo de producto a una Variable, esa variable se llena y al cargar el formulario EditarProducto (oSEA Busca el codigo del producto y muestre sus detalles). ¿como lo haria?, si la clave principal de la tabla es string de 6 caracteres, no es autonumerico.

[robertgustavo]

he intentado buscar con esto pero no sale:

Dim dr As DataRow = Ds.Tables("productos").Rows.Find("cod_pro=" & Me.codigoproducto)

Me.TxtProducto.Text = dr(1).ToString
me.categpro.text=dr(2).ToString

sale un error y me dice que La tabla no tiene una clave principal.
y en realidad si la tiene, pero es string de 6 caracteres. ¿que pasa?