Private Sub cmdDelete_Click()

Dim x As Variant

x = MsgBox(" You are abut to delete " & Me.customerName & " from this table - proceed ? ", vbOKCancel)

If x = 1 Then
With myRS
.Delete
.MoveFirst
End With
End If
End Sub
/\ you put it in your delete code.. but I don't think you set it to anything (or should it be the recordset on the form?)

DAO:
set rst = dbengine(0)(0).openrecordset("table or sqlstatement")
set rst = currentdb.openrecordset("table or sqlstatement")

ADO:
set rst = new adodb.recordset
strsql ="sql statement"
rst.open strsql,currentproject.connection,2,3,1 'dynamic, optimistic, adcmdtext
'or
strsql ="table"
rst.open strsql,currentproject.connection,2,3,adcmdtable 'dynamic, optimistic, adcmdtable