No me da de alta un campo de column(1)

Hola amigo antes que nada muchas gracias, mira mi problema es el siguiente.
Cuando trato de dar de alta algunos valores en una tabla de nombre ventas en una base de datos me agrega todos los campos excepto uno (me pone ese campo en blanco) que está en un cuadro de texto que lleva por nombre txtproducto (este lo mando a llamar desde un cuadro combinado el cual tiene el nombre ccidprod este valor lo manda en el evento del cuadro combinado cuando cambia "Me.txtproducto=Me.ccidprod.Column(2)") Abajo pongo el código.
Los cc*** son cuadros combinados y txt*** son cuadros de texto
----Esta parte funciona bien si me muestra el valor en el txtproducto----
Private Sub txtidprod_Change()
Me.txtpoducto= Me.ccidprod.Column(2)
End Sub
---A la hora de dar de alta me llena todos los registros en la tabla ventas excepto el de producto el cual lo debe de jalar del cuadro de texto txtproducto (el cual es mostrado de la instrucción "Me.txtpoducto= Me.ccidprod.Column(2)")----
Private Sub cmdguardar_Click()
If cctienda = "" Or txtfecha = "" Or txtvisito = "" Or txtproducto = "" Or txtcantidad = "" Or IsNull(cctienda) Or IsNull(txtfecha) Or IsNull(txtvisito) Or IsNull(txtproducto) Or IsNull(txtcantidad) Then
MsgBox "Llena todos los datos por favor", vbInformation
Else
SQL = "Insert into Ventas (Tienda,Fecha,Visitó,Producto,Cantidad) Values ('" & cctienda.Value & "','" & txtfecha.Value & "','" & txtvisito.Value & "','" & txtproducto.Value & "','" & txtcantidad.Value & "');"
CurrentDb.Execute SQL
txtproducto = ""
txtcantidad = ""
txtproducto.SetFocus
End If
End Sub
Ya intente poniéndole txtproducto. Value y Me. A todo pero sigue sin reconocer ese valor a la hora de darlo de alta (si lo muestra en el cuadro de texto, pero cuando lo doy de alta no me agrega ese registro pero los demás sí, digamos que lo deja en blanco el producto).
No sé si me doy a entender gracias!