Slette post i DB udfra valgt emne i listbox

Jeg har en listbox, som udfyldes vha. en database. Jeg vil gerne give brugeren mulighed for at slette poster ved at markere et emne i listboxen og derefter trykke på en \"slet\"-knap. Jeg har prøvet følgende uden held:
Private Sub fjernpost()
    findstring = CStr(Me.List1.ListIndex)
    Data1.Recordset.Fields.Delete (\"ID\" = findstring)
End Sub