If (tb1.RecordCount <> 0) Then
tb5.MoveFirst
tb5.FindFirst COD = Me.ID.Value
If tb5.NoMatch Then
Form_Formulario.Item.Value = tb5("Item")
Form_Formulario.Desc_Ordem.Value = tb5("Desc_Ordem")
Form_Formulario.Desc_Classe.Value = tb5("Desc_Classe")
Form_Formulario.qtd.Value = tb5("qtd")
Form_Formulario.VALOR.Value = tb5("Valor")
Form_Formulario.DescBar.Value = tb5("DescBar")
Form_Formulario.ValorUnit.Value = tb5("ValorUnit")
Form_Formulario.QtdeBar.Value = tb5("QtdeBar")
End If
End If
End Sub