删除子窗体记录

rivate Sub Command25_Click()
On Error Resume Next
Dim strSource As String
Dim rs As New ADODB.Recordset
Me.Text3.SetFocus
Me.AllowAdditions = False
If Me.Command25.ForeColor <> 8421504 Then
    If BooAdd = True Then
        strSource = Me.项目订单录入子窗体.Form.RecordSource
        rs.Open strSource, CurrentProject.Connection, adOpenKeyset, adLockPessimistic
            rs.Filter = "[销售订单] = '" & Me.Text3.Value & "'"
            rs.DeleteadAffectCurrent
        rs.Close
        Set rs = Nothing
        'Me.Requery
        Me.项目订单录入子窗体.Form.Requery
        BooAdd = False
    End If
End If
End Sub

当子窗体的销售订单等于主窗体的非绑定销售订单时，删除子窗体项目订单录入子窗体的记录！  我这样写了，始终删除不了，请大家帮忙看看