Cambio tra listbox

Caio a tutti.

Uso la seguente routine per lo spostamento tra una listbox e l'altra:

Public Sub CambiaSelezione(ctl As Control)

    Dim i As Integer

    For i = 0 To ctl.ListCount - 1
        If ctl.Selected(i) Then
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE MiaTabella" & _
                         "   SET Selezionato = NOT Selezionato " & _
                         " WHERE (((MiaTabella.MioID_testo) = " & Chr(34) & 
ctl.ItemData(i) & Chr(34) & "));"
            DoCmd.SetWarnings True
            ctl.Selected(i) = False
        End If
    Next i

    Me.lstSx.Requery
    Me.lstDx.Requery

End Sub

Tutto funzionante ma sono costretto ad usare un campo formato testo 
"MioID_testo", clone del campo formato contatore "MioID_contatore" perchè
altrimenti ottengo l'errore "tipo di dati non corrispondente 
nell'espressione criterio".
Come posso fare per utilizzare direttamente nella routine il campo 
MioID_contatore?

Ringrazio anticipatamente,
Cranze