Access - Cuadro de lista.No encuentra el campo

Hola
A ver si alguien me da una solución.
Resulta que tengo un formulario y en él un caudro de lista vinculada a otra tabla. Cuando intento hacer doble click sobre un valor del cuadro de lista pretendo hacer un INSER INTO en otra tabla. Hasta aquí todo bien. Lo que ocurre es que pregunta por el valor que deseo añadir a la tabla en vez de cogerlo del seleccionado en el cuadro de lista. Alguien puededecirme donde está el error.
Este es el código que tengo hasta ahora:

Private Sub ListaTrabajadores_DblClick(Cancel As Integer)
Dim var As String
Dim Vitem As Variant, selecc As String
selecc = ""

For Each Vitem In Me.ListaTrabajadores.ItemsSelected
selecc = selecc & "," & Me.ListaTrabajadores.ItemData(Vitem)
Next
If selecc = "" Then Exit Sub
selecc = Right(selecc, Len(selecc) - 1) ' Así quitamos la primera coma

MsgBox "Se va a agregar el trabajador al curso ", vbCritical, "AVISO !!!"
var = "Insert INTO TbParticipantes (IdCurso,NifEmpleadoPublico)VALUES( IdCurso , NifEmpleadoPublico)"

DoCmd.SetWarnings False
DoCmd.RunSQL var
DoCmd.SetWarnings True
Me.Refresh
Me.Recalc
End Sub

A ver si alguien me dice algo. Muchas Gracias

Hola de nuevo. Despues de un par de horas rompiendome la cabeza lo he conseguido.
Les dejo la solución que he encontrado.
Un saludos para tod@s

Private Sub ListaTrabajadores_DblClick(Cancel As Integer)

Dim var As String
var = "Insert INTO TbParticipantes (IdCurso,NifEmpleadoPublico) VALUES (IdCurso,'" & Me.ListaTrabajadores.Column(0) & "')"
MsgBox "Se va a agregar el Empleao público al curso", vbCritical, "AVISO !!!"

DoCmd.SetWarnings False
DoCmd.RunSQL var
DoCmd.SetWarnings True
Me.Refresh
Me.Recalc

End Sub