Eliminar registro Access con VBA

[Carbontek]

Hola,

Tengo un formulario con un boton y quiero que al pulsar se elimine un registro concreto.

El identificador del registro está en el formulario...

He probado con esto:

Private Sub Loeschen_Click()

Dim DB As Database
Dim rst As Recordset

Set DB = CurrentDb()
Set rst = DB.OpenRecordset("tb_Rf_Nummer")

While Not rst.EOF

If (rst![Satz_ID] = Me![ID_Rf_Satz]) Then
rst.Delete
End If

rst.MoveNext

Wend

End Sub

Pero no funciona.

Alguien sabe porqué? o tiene alguna otra idea.

Gracias.