rs.Open "Delete from Sample2 Where ID ='" & someid & "'", cn, adOpenDynamic, adLockPessimist ic

Use this query to delete your data.