VB-數據刪³ý處Àí

Private Sub Command1_Click(Index As Integer)

Select Case Index 
    Case 3  ¡¯刪³ý
            Dim YesNo As String
           
           
            If Command1(Index).Caption = "刪³ý(&D)" Then
             
              YesNo = MsgBox("ÄúÒª刪³ý" + CStr(Mb.Text) + "µÄ組裝ÅÅÅä記錄嗎?", vbYesNo + vbCritical, "¾¯¸æ")
              If YesNo = vbNo Then Exit Sub
                  cnn.Execute ("DELETE from DGMOCPPT WHERE convert(char(10),PS002,121)='" & Trim(Format(Mb.Text, "yyyy-mm-dd")) & "' ")
                RsVWPZ.Requery
            ElseIf Command1(Index).Caption = "·Å棄(&Q)" Then
                If RsVWPZ.RecordCount = 0 Then ClearRs 1  '當沒ÓÐ記錄´æÔÚµÄÇé況ÏÂÇå¿Õ顯ʾ
                EditCmd 2