[5分]循环嵌套的问题，对于单据状态未改变的不能删除，也没有任何提示，不知哪里的嵌套有问题！

Private Sub Command34_Click()
    Dim STemp As String
    Dim zt As String
'    Set Rs = New ADODB.Recordset
    strid = Me.sfrDetail.Form!订单编号
    STemp = "Select * From 客户订单"
    If DCount("订单编号", "TMP_托运单明细") < 1 Then
        MsgBox "没有可删除的数据！", vbCritical, "提示！"
        Exit Sub
    End If
zt = DLookup("单据状态", "客户订单", "订单编号='" & strid & "'")
    If zt = "出库" Or zt = "回单" Or zt = "交客户" Then


        MsgBox "该订单已经" & zt & "不能删除", vbCritical, "提示"
    Else
        If Rs.RecordCount > 0 Then
            If MsgBox("记录删除后不能恢复，你确定删除选中的订单号码【" & strid & "】的数据吗？", vbYesNo + 32, "提示信息") = vbYes Then
                Me.sfrDetail.SetFocus
                DoCmd.RunCommand acCmdDeleteRecord
                Me.Refresh
            End If
        End If
    End If
    Set Rs = Nothing
End Sub