VB6.0  与access数据库，只能删除首记录，其它均无法删除.

Private Sub cmdDelete_Click() 'cmdDelete 删除按钮，单击它执行下面代码

    x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认")

    If x = vbYes Then

        If Adodc1.Recordset.RecordCount > 0 Then '记录集为空时，不删除与更新记录集

            Adodc1.Recordset.Delete        '删除记录

            Adodc1.Recordset.Update        '更新数据表

        End If

    End If

    Exit Sub