Hacer que un campo salga automático de un cuadro combinado ?

Aquí pude ver como Hacer que un campo salga automático de un cuadro
combinado solo que uno es Numero y el otro Texto; pero en el caso que los
dos fueran Texto como lo puedo hacer me da error después de seleccionar
el código alguien me puede ayudar?

la fuente la tengo así ahorita

Private Sub CodigoCB_AfterUpdate()
Dim vProd As String
Dim vDes As String
vProd = Nz(Me.[Código].Value, 0)
If vProd = 0 Then Exit Sub
vDes = DLookup("[Descripción]", "Producto", "[Código]=" & vProd)
Me.DescripcionTB.Value = vDes
End Sub

se lo agradecer si alguien me puede ayudar