Correção no codigo

[usmeira 0]

Alguem pode me ajudarEu criei esse codigo para copiar um valor de um campo de uma tabela para um campo de outra tabela , Private Sub ok_Click()Dim dbDim tbSet db = CurrentDbSet tb = db.OpenRecordset("descr")tb = descrIf Me.cargo1 = tb!cargo ThenMe.descriçaoativ = tb!descriçaoEnd IfEnd Subda a seguinte mensagem :erro em tempo de execução '424'o objeto é obrigatóriona depuração ele seleciona a linha que esta o if

[RomeroBarreto 0]

Falaê.Tenta substituir a linha por isso aqui:If Me.Cargo1=tb("Cargo") thenTentaê, vê se funciona.