Access - Eliminar registros en una lista

¿como elimino los registros seleccionados en una lista? puedenser uno ó varios registros.

Hola:

Dim lstItem
Dim strCriterio As String

For Each lstItem In Me.Lista0.ItemsSelected
strCriterio = strCriterio & "," & Lista0.ItemData(lstItem )
Next

strCriterio = Right(strCriterio , Len(strCriterio ) - 1)

CurrentDb.Execute "delete * from Tabla where Id In (" & strCriterio & ")"
Me.Lista0.Requery

Suponiendo que el campo Id sea númerico

Un Saludo

Una vez mas gracias por la ayuda mi menda pero....
Analizando bién la situación no puedo eliminar el registro de la tabla porque es la plantilla de empleados creo que lo mas correcto es crear una copia de la plantilla (una tabla de paso) y en base a esta crear la consulta que alimenta la lista y de esta forma si puedo eliminar el registro ¿que opinas? o sugieres otra forma de hacerlo.

Sí necesitas tener la lista actualizada sín los registros "eliminados", podrías poner un campo "Ocultar" de tipo Sí/no en la misma Tabla y no necesitarías hacer una Tabla nueva, en la lista mostrarías los de valor Falso, y actualizariamos a True los que queramos "eliminar".

Solo tendrías que cambiar la sentencia SQL

CurrentDb.Execute "update Tabla set Ocultar =" & -1 & " where Id In(" & strCriterio & ")"
Me.Lista0.Requery

Un Saludo

ya lo hice y funciona bien pero....
despues de eliminar y actualizar la lista en esta quedan las lineas con la cual se marcaron los registros que elimine y quedan sobre los registros que actualmente ocupan esos lugares, ¿como se quitan esas marcas?

For Each lstItem In Lista0.ItemsSelected
Lista0.Selected(lstItem) = False
Next

Saludos

¡¡¡ Maestro !!! .....muchas gracias