直接说你的意图吧
Dim a As Boolean = Tables("表A").Current("第一列") = "001"Do While a = True Tables("表A").Current.Delete a = Tables("表A").Current("第一列") = "001"Loop