[Resolvido]Depois de converter de 2003 para 2007

Boa noite amigos

Converti para 2007 e:
Ao fazer ... Debug

Dim DB1 As Database, RS1 As Recordset
   Set DB1 = CurrentDb()
   Set RS1 = DB1.OpenRecordset("tblProdutos", dbOpenDynaset)
   RS1.FindFirst "códigodoproduto = " & Me.CódigoDoProduto
   RS1.Edit
   RS1("UnidadesEmStock") = UnidadesEmStock + Me.Lista26.Column(4)
   RS1.Update
   RS1.Close
   Set RS1 = Nothing
   Set DB1 = Nothing

Em 2003 funfa perfeito ao fazer duplo click nas linhas da listBox

Obrigado Avelino

No meio de tantos forms que esta BD só um é que dava Erro.

Abraço