Private Sub Command_Click()
Dim MyConn As adodb.Connection
Dim rs As adodb.Recordset

Set MyConn = New adodb.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\clientes.mdb"
MyConn.Open

If MsgBox("¿Deseas eliminar el registro?", vbYesNo + vbQuestion, "Borrar?") = vbNo Then
Exit Sub
End If

With MyConn
.BeginTrans
.Execute "DELETE FROM x_tabla WHERE Identificador_campo = 1"
.CommitTrans
End With

rs.Close
Set rs = Nothing
End Sub

busca el connection string para MS Access 2007