删除数据问题！

[游子]

Dim strSQL As String
Dim myBookmark As Variant
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str2 As String
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
cnn.CursorLocation = adUseClient
cnn.ConnectionString = connstr
cnn.Open
rs.Open "SELECT * FROM to_repeat where yz_date between' " + Str(DTPicker1.Value) + "' and '" + Str(DTPicker2.Value) + "' order by yz_date", cnn
str2 = MsgBox("确定要删除查询到的数据？", vbOKCancel, "提示")
If str2 = vbOK Then
If (DTPicker1.Value <> "") Then
rs.Delete
rs.MoveNext
MsgBox "删除成功", vbOKOnly + vbInformation, "提示"
rs.Close
Set cnn = Nothing
End If
End If
为什么只删除一条数据呢？？明明查到N条啊。。

[fzx4936]

If str2 = vbOK Then
  If (DTPicker1.Value <> "") Then
     Do While not rs.eof
        rs.Delete
        rs.MoveNext
     loop
   end if
end if

[fzx4936]

哦 上面的rs.MoveNext要注释掉