Solo Por Experimentar

[rsiles]

Bueno has lo siguiente cualquiera de estos

Si usas control data
Data1.Recordset.Delete
*******************************
si estas usasndo DAO
Dim a As Workspace
Dim data As Database
Dim rst As Recordset

Set a = CreateWorkspace("", "admin", "")
Set data = a.OpenDatabase("c:\db1.mdb", False, False)
Set rst = data.OpenRecordset("cli", dbOpenDynaset)
rst.Delete
**************************************

Lo unico es posicionarte en el registro que deseas eliminar y luego le das le instruccion al recordset para que este lo elimine.