حذف رکوردهای جدول اکسس توسط کتابخانه ADODB

Private Sub DeleteProductADODB()
                   Dim rstVideos As ADODB.Recordset
                   Set rstVideos = New ADODB.Recordset
                   rstVideos.Open "SELECT * from Products where ID=5", _
                          CurrentProject.Connection, _
                                  adOpenDynamic, adLockPessimistic, adCmdText
                   rstVideos.Delete
                   rstVideos.Close
                   Set rstVideos = Nothing
               End Sub