Duvida em procedimento

Boa tarde

A todos

Alguém poderia me ajuda neste código, não consigo encontrar o erro.

Private Sub Combinação125_Exit(Cancel As Integer)
If IsNumeric(Combinação125) Then
Me.Texto130 = DLookup("Nome", "Tbl_Produto", "codigo='" & Me.Combinação125 & "'")
Me.Texto141 = DLookup("codigo", "Tbl_Produto", "codigo='" & Me.Combinação125 & "'")
Else
Me.Texto130 = DLookup("Nome", "Tbl_Produto", "Nome Like '*" & Combinação125 & "*'")
Me.Texto141 = DLookup("codigo", "Tbl_Produto", "Nome Like '*" & Combinação125 & "*'")
End If
End Sub

Tente especificar qual coluna da cbo está o campo numérico. tipo

Combinação125 contém 2 colunas primeira coluna o código e segunda o nome então seria

If IsNumeric(Combinação125.column(0)) Then