Urgente

Buenos días amigo, le pido por favor si me puede ayudar con el procedimiento de delete el problema es que con el código que esta en el comando para eliminar datos me borra todos los registros y yo quisiera saber como borrar pero solo el registro que yo quiera. Por favor de verdad necesito el código ya que este es un proyecto para poder pasar el semestre.
Mi base de datos es de access, solo tiene una tabla en la cual solo tengo 3 campos que son:
id = autonumerico
nombre = texto
apellido = texto
Private Sub Command1_Click()
seteo (" update alumno set nombre = '" & nombre.Text & "' Where  id = " & id.Text & " ")
consultar_Click
End Sub
Private Sub Command2_Click()
ListView1.ListItems.Clear
nombre.Text = ""
apellido.Text = ""
consultar_Click
End Sub
Private Sub consultar_Click()
seteo (" select * from alumno ")
ListView1.ListItems.Clear
If record.RecordCount = 0 Then
MsgBox " No existen datos "
Else
For c = 1 To record.RecordCount
ListView1.ListItems.Add , , c
ListView1.ListItems(c).SubItems(1) = record!nombre
ListView1.ListItems(c).SubItems(2) = record!apellido
ListView1.ListItems(c).SubItems(3) = record!id
record.MoveNext
Next c
End If
End Sub
Private Sub eliminar_Click()
seteo (" DELETE FROM alumno ")
Where
End Sub
Private Sub Form_Load()
basedata
End Sub                        (Aqui esta el problema que quiero borrar un solo registro)

Private Sub guardar_Click()
seteo (" insert into alumno (nombre,apellido) values ( '" & nombre.Text & "' , '" & apellido.Text & "') ")
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
nombre.Text = Item.SubItems(1)
apellido.Text = Item.SubItems(2)
id.Text = Item.SubItems(3)
End Sub
Private Sub salir_Click()
Beep
MsgBox " Saliendo del programa "
End
End Sub
Espero pronta respuesta! Gracias...