considerando que o campo codigo ta no primera coluna:
com datagrid seria assim:
Private Sub DgdLivV_DblClick()
XCodLivro = CInt(DgdLivV.Columns.Item(0).Text)
End Sub
com flexgrid seria assim:
Private Sub MSHFGsolicitante_Click()
Resultado = Cint(MSHFGsolicitante.TextMatrix(MSHFGsolicitante.Row, 1))
End Sub
pegando o codigo vc faz o sql que filtra o registro no banco e preenche o formulario
blz