Access - Problemas con autocompletar formulario

Hola al foro, tengo un problema con Access, le explico a continuación:
Tengo un formulario Ventas (tabla ventas) en el que al ingresar el Código de un producto automáticamente se llena los campos producto y vendedor que están contenido en otra tabla (tabla producto). El problema esta en que cada vez que ingreso el código en el formulario los campos producto y vendedor se rellenan con el primer registro de la tabla, es decir:

código producto vendedor
0001 arroz juan perez (siempre se rellenan con estos datos en el form vtas)
0002 azucar luis ramos
0003 aceite marcos santos

Alguien me puede ayudar para que cuando digite el cod. 0003 u otro código aparezcan sus datos correspondientes y no aparezcan los datos del cod. 0001.

Pd.
-El campo cod. Es texto
-Les ecribo el código que use:

Private Sub Codigo_AfterUpdate()
If IsNull(Me.Codigo) Or Me.Codigo = "" Then Exit Sub
Me.Producto = Nz(DLookup("Producto", "[Tabla Producto]", "[Codigo]='" & Me.Codigo & "'"), "")
Me.Vendedor = Nz(DLookup("Vendedor", "[Tabla Producto]", "[Codigo]='" & Me.Codigo & "'"), "")
End Sub