For Each n As String In IDs
            Try
                Dim myCommand As New OleDbCommand
                myCommand.Connection = myConnection
                myCommand.CommandText = "DELETE FROM tbl_Filme WHERE F_ID = ?"
                myCommand.Parameters.AddWithValue("@FID", n)
                myCommand.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message.ToString)
            End Try
        Next