Delete Records From A Listbox

I have a form with a listbox on it and I am trying to make a button that will delete the selected records from a table. The List box is filled from a query. Any help would be very appreciated.

Table to delete records from = tbllinkPersonel_Training
listbox = lstTraining_In

_______________________________________________
Private Sub cmdDelete_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim var As Variant
Set db = CurrentDb
Set rs = db.OpenRecordset("tbllinkPersonel_Training")

If IsNull(Me.cboTraining) Then
MsgBox "No Class selected...", vbExclamation
Exit Sub
End If

For Each var In Me.lstTraining_In.ItemsSelected
With rs
.Delete
End With
Next

MsgBox "Deleted Successfully...", vbInformation

rs.Close
db.Close

Set rs = Nothing
Set db = Nothing

Me.lstTraining_In.Requery
Me.lstpersonel.Requery
End Sub
____________________________________________

Thanks, Michael