一.DoCmd.RunSQL "Delete from tblCode_kh where khid='" & Me.客户代码 & "'"
      二.CurrentDb.Execute "Delete from tblCode_kh where khid='" & Me.客户代码 & "'"
      三.Call acchelp_deletefldstrrow("tblCode_kh", "khId", selectstr)

【Access小品】三种删除记录方法的比较-Access软件网
http://www.accessoft.com/article-show.asp?id=5511#